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This user's guide describes the computer programs developed to 
simulate the RSECS (Representative Shuttle Environmental Control 
System) . These programs have been prepared to provide pretest 
predictions, post-test analysis and real-time problem analysis 
for RSECS test planning and evaluation. Hamilton Standard has 
provided these programs to the NA^A on a magnetic tape cassette 
and on a disk device that is part of Crew Sys'^ems Division's 
WANG-2200 series computer system. 
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INTRODUCTION 


To fulfill the requirements of Contract NAS 9-12411, for calen- 
dar year 1975, Hamilton Standard has developed the computer pro- 
grams listed below. These programs were written to support the 
RSECS (Representative Shuttle Environmental Control System) test 
program presently being conducted. 

• "rsecS" - Calculates a steady state heat balance for a com- 

bined RSECS ARS (Air Revitalization Subsystem) gas 
and water coolant loop system. Required input data 
consists of RSECS heat loads, flow rates and con- 
troller settings, and <KE (Ground Support Equip- 
ment) flow rate and inlet temperature. 

• *'RSECS2" - Draws flow charts of RSECS air loop and water loop. 

This program is used in conjunction with program 
"RSECS". 

• "350-M Hx"- Analyzes 350-M heat exchanger test data. Calcu- 

lates heat loads and heat transfer coefficients for 
the heat exchanger. Required input consists of 
operating temperatures and flow rates at the heat 
exchanger, 

• "CONDHX" - Calculates 350-M RSECS cabin heat exclianger per- 

formance using measured inlet air conditions of 
temperature and dew point, and inlet coolant con- 
ditions of temperature and flow. Used to predict 
results of heat exchanger tests. 

• "ARS DP" - Calculates the corrected pressure drop of the 

Hamilton Standard supplied I^ECS ARS gas loop 
equipment. The calcvilations are detailed to the 
package level. Required input data includes the 
total air flow rate, and the number of RS-11 
fans operating. 

• "PLOT" - Generalized plot program used to produce plots of 

results of RSECS analysis or any other desired 
data, using a WANG 2200 flat bed plotter. 
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• "RADIATOR"- Calculates thermal performance for a flowing 

radiator panel system. Used to predict perform- 
ance for the Shuttle radiator system. 

Uses environmental inputs (absorbed heats) in 
combustion with physical input (flow rate, Tin, 
Area ) to generate predictions. 

* "WINDA" - Generalized model thermal analyzer program. Used 

to model any desired thermal system. Inputs are 
in standard SINDA format - thermal conductances 
between nodes , thermal masses , boundary condi- 
tions, etc. 
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RSECS STEADY STATE COMPUTER PROGRAM 


File Name "RSECS" 

Abstract "RSECS" calculates the steady state operating point, 
for a given set of input data, for the combined 
RSECS gas and water coolant loops. The program is 
designed for use with a WANG 2200 - series computer 
system. A sample case is shown in figure 1. 

Program Description 

This user's guide is written for the pernon who has an under- 
standing of the BASIC computer language and is acquainted with 
the WANG 2200 - series computer system. The program models the 
functional gas, figure 2, and water loop, figure 3, schematics 
enclosed. 

Rotating equipment characteristics are supplied as input data. 
HOT»ever, performance maps for the 350-m and RS-261 heat exchangers 
are stored in the program as internal data, in addition to Freon- 
21 and water vapor properties. These data tables are Interpo- 
lated by using an adaptation of the Hamilton Standard Division’s 
"UNBAR" routine. 

As written, the program uses Freon-21 as the RS-261 heat ex- 
changer's cold side fluid. Minor changes to the data tables are 
required if another fluid is to be considered. The Freon en- 
thalpy table must be revised to reflect the new fluid. A re- 
vised RS-261 heat exchanger performance map must be generated 
and Incorporated. 

The "Input Data Definition", Table 1, provides the user with the 
information required to supply the program with the appropriate 
input data. The input data for all the cases is loaded into its 
storage array prior to the execution of the first case. At the 
completion of the first case, the results will be printed, the 
data array cleared and up-dated for the second case, and the 
second case started. The user has the option of matching the 
RS-261 heat exchanger’s heat Load or hot side operating tempera- 
tures to Shuttle conditions. When the Shuttle temperatures are 
duplicated, the NASA-supplied heat sink will compensate for the 
heat not rejected through the RS-261 heat exchanger. 
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Table I 

INPUT DATA DEFINITION 


CRT 

SYMBOL 

PRINTED 

SYMBOL 

DESCRIPTION 

0 of cases 

not printed 

number of cases to be run (1 - 10) 

date 

date 

Time identification (16 characters, 
max) 

are flow 
charts de~ 
sired 

not printed 

1 if yes 

2 if no 

Is printout 
desired 

not printed 

1 if yes 

2 if no 

run desig- 
nation 

run 0 

identifying notation for individual 
case (64 characters, max) 

T RS-20 SETPT 

T RS-20 SETPT 

RS-20 temperature controller setting 
for chamber; program will try to 
balance system at this point (°F) 

Q cham-S 

Q chatnber-S 

sum total of all non-RSECS sensible 
heat added to the chamber (Btu/Hr) 

Q charo-L 

Q charaber-L 

sum total of all non-RSECS latent 
heat added to the chamber (Btu/Hr) 

Q avionics 

Q cham avionics 

sensible heat supplied by the cabin 
avionics simulator (Btu/Hr) 

CO 2 flow 

CO 2 inlet flow 

CO 2 injection rate into the chamber 
(Lb /Hr) 

RS-11 flow. 

RS-11 flow 

total air flow generated by the 
RS-11 fans (cfm) 

RS-11 power 

RS-11 power 

RS-11 fans input pother (watts) 

RS-51 flow 

RS-51 flow 

RS-51 separator air flow rate (cfm) 

RS-51 power 

RS-51 power 

RS-51 separator input power (watts) 

RS-251 flow 

RS-251 flow 

RS-251 pump flow rate (Lb/Hr) 
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Table I 

INPUT DATA DEFINITION (CONCLUDED) 


CRT 

SYMBOL 

PRINTED 

SYMBOL 

DESCRIPTION 

RS-251 power 

RS-251 power 

RS-251 pump input power (watts) 

bypass flow 

H 2 O bypass flow 

RS-251 pump package bypass flow 
rate (Lb /Hr) 

Q simulator 

Q H 2 O avionics 

sensible heat supplied by the H 2 O 
loop avionics simulator (Btu/Hr) 

T 350M H 2 O in 

not printed 

desired 350-M HX H 2 O inlet temp. If 
>0 the heat req'd to compensate for 
the difference between this temp, 
and the RS-261 HX outlet will be 
calculated. 

If = 0 the H 2 O heat sink Q will be 
set at 0 and the IG-261 HX outlet 
temp, will be used C°F) 

T 261 H 2 O in 

not printed 

desired RS-261 HX H 2 O inlet temp, 
must be > 0 if T 350M HjO in is 
> f; / or must = 0 if T 350M H 2 O in = 
0 (°F) 

T 261 F21 in 

T RS-261 F21 IN 

RS-261 HX cold side inlet tempera- 
ture (°F) 

261 F21 flow 

W RS-261 F21 

RS-261 HX cold side flow rate 
(Lb /Hr) 
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The “Output Data Definition", Table II, provides the user with a 
description of the output data's printed symbols. Two sample 
cases are provided to assist the user in understanding the data 
tables and the program operation. 

For user reference, th-. following information is enclosed: 

1. RS-11 Fan Performance Map, figure 4 

2. 350-M Heat Exchanger Performance Curves 

Hot Side Film Coefficient vs. Air Velocity, figure 5 

Cold Side Film Coefficient vs. Water Flow Rate Per 
Start, figure 6 

3. RS~261 Heat Exchanger Performance Maps, Effectiveness vs. 
Hot and Cold Side Flow Rates. 

Uses Cold Side Fluid of - Freon-21, figure 7 

- Water/Glycol, figure 8 

- Water, figure 9 

4. Internal Data Summary, Table III 

5. Data Array, Table IV 

6. Input Data Array, Table V 

7. Logic Key Array, Table VI 

8. Scalar Variable Summary List, Table VII 

9. Subroutine Descriptions, Table VIII 

10. Program Listing, Table IX 
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Table II 

OUTPUT DATA DEFINITION 


PRINTED 

SYMBOL 

DESCRIPTION 

T chamber 

steady state chamber temperature (°F) 

total air flow 

air weight flow at the RS-11 fans (Lb /Hr) 

Q RS-ll 

sensible heat generated by the RS-11 fans (Btu/Hr) 

T dewpoint 

chamber dewpoint temperature (°F) 

WCP RS-ll 

air weight flow X specific heat at the RS-11 fans 
(Btu/Hr - Op) 

Q RS-50-S 
- 

sensible heat generated by the Li 0 H/C 02 reaction 
(Btu/Hr) 

T ES-ll in 

RS-11 fans inlet temperature (°F) 

WCP 3S0-M 

air weight flow X specific heat through the 35Q-M HX 
(Btu/Hr - °F) 

Q RS-50-L 

latent heat generated by the Li 0 H/C 02 reaction 
(Btu/Hr) 

T RS-50 in 

RS-50 LiOH assembly inlet temperature (°F) 

V 350-M 

air flow rate exiting the 350-M HX (cfm) 

Q ES-51 

sensible heat generated by the RS-51 separator 
(Btu/Hr) 

T 350-M in 

350-M HX air inlet t^perature (**F) 

V bypass 

air flow rate through the 350-M HX bypass (cfm) 

Q 350-M-S 

350-M HX sensible heat load (Btu/Hr) 

T 350-M out 

350-M HX air outlet temperature (°F) 

W condensate 

condensate flow rate exiting the RS-51 separator 
(Lb/Hr) 

Q 350-M-L 

350-M HX latent heat load (Btu/Hr) 
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Table II 

OUTPUT DATA DEFINITION (CONCLUDED) 


FEINTED 

SYMBOL 

DESCRIPTION 

T BS-51 out 

RS-51 separator air outlet temperature (°F) 

UA 350-M 

350-M HX UA (Btu/Hr - op) 

Q 350-M -TOT 

350-M HX total heat load (Btu/Hr) 

T ES-261 H 2 O out 

RS-261 HX H 2 O outlet temperature ('’F) 

T 350-M H 2 O in 

350-M HX H 2 O inlet temperature (*’F) 

T 350-M H 2 O out 

350-M H 2 O outlet temperature (°F) 

T ES-251 H 2 O in 

RS-251 pump inlet temperature (°F) 

T avion H 2 O in 

H 2 O loop avionics simulator inlet temperature (°F) 

T RS-261 H 2 O in 

ES-261 HX H 2 O inlet temperature (°F) 

T PS-261 F21 out 

RS-261 HX cold side outlet temperature 

W RS-261/350-M 

RS-261/350-M HX H 2 O flow rate (Lb /Hr) 

q H 2 O HTSINK 

H 2 O loop heat sink load (Btu/Hr) 

Q RS-251 

heat generated by the RS-251 pump 

Q M-261 

RS-261 HX heat load (Btu/Hr) 
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Table III 


INTERNAL DATA SUMMARY 


STORAGE 

LOCATION 

^ 

DATA DESCRIPTION 

1-25 

Freon temperatures, 0-240°F in 10° increments 

26-50 

Freon enthalpy, Btu/Lb, corresponding to tempera- 
tures in locations 1-25 

51- 7C 

Water vapor temperatures, 32-70°F in 2° increments 

71-90 

Water vapor pressure, PSIA, corresponding to tempera- 
tures in locations 51-70 

91-118 

350-M HX air side film coefficient curve, vs. 

velocity 91: // of X values (13) 

92; # of Y values (0) 

93-103: air velocity, 100-1300 ft/min in 
100 ft/min Increments 

104t 118; ^tu/Hr-Ft^ - °F, corres- 

ponding to air velocities in locations 
93-103 

119-138 

350-M HX H 2 O side film coefficient curve, vs. 

flow/s tart 

119: # of X values (9) 

120: // of Y values (0) 

121-129: flow/start, 100-500 Lb/Hr 
in 50 Lb /Hr increments 

130-138; hg, Btu/Hr-Ft^ ®F, corresponding to flow/ 
start locations 121-129 

139-211 

i 

RS-261 HX effectiveness map; 

H 2 O/F 2 I, T F21 - in = 40°F 
139: # of X values ( 8 ) 

140: // of Y values (7) 

141-148; H 2 O flow, 200-900 Lb/Hr in 100 Lb/Hr 
Increments 

149-155; F21 flow, 1500-4500 Lb/Hr in 500 Lb /Hr 
Increments 

156-211: HX effectiveness in following order: Xj^, Y]^, 
Xi, Y 2 , XiY7,X2Yi X 2 Y 7 , XaY7 
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Table IV 
DATA ARRAY 

— Provides storage for individual rase 
calculations 


ARRAY 

LOCATION 


DATA DESCRIPTION 




RS-20 temperature controller set point 
Non-RSECS sensible heat added to the chamber 
Non-RSECS latent heat added to the chamber 


Cabin avionics simulator heat load 


CO 2 injection flow rate to chamber 
RS-11 fans total volumetric flow rate 
RS-11 fans power requirement 
RS-51 separator volumetric flow rate 
RS-51 separator power requirement 
RS-251 pump total mass floi-; rate 
RS-251 pump power requirement 
H 2 O bypass mass flow rate 
H 2 O loop avionics simulator heat load 
350-M HX H 2 O inlet temperature 
RS-261 HX H 2 O inlet temperature 
RS-261 HX F21 inlet temperature 


RS-261 HX F21 mass flow rate 
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Chamber temperature 
RS-U I an lu'al load 

Sensible heat generated by the C02/L10H reaction 
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Table IV 

DATA ARRAY (CONTINUED) 

- Provides storage for Individual case 
calculations 


ARRAY 

LOCATION 

DATA DESCRIPTION 

21 

Latent heat generated by the CO 2 /LIOII reaction 

22 

RS-51 separator heat load 

23 

Sensible heat at the 350-M HX inlet - air side 

24 

350-M HX total sensible heat 

25 

350-M HX total latent heat 

26 

350-M HX total heat load 

27 

RS-251 pump heat load 

28 

H 2 O loop sink heat load 

29 

RS-261 HX heat load 

30 

RS-261/350-M HX*s H 2 O mass flow rate 

31 

RS-261 HX H 2 O outlet temperature 

32 

RS-261 HX F21 outlet temperature 

33 

350-M HX H 2 O outlet temperature 

34 

RS-251 pump H 2 O inlet temperature 

35 

H 2 O loop avionics simulator inlet temperature 

36 

RS-11 fan air mass flow rate X specific heat 

37 

350-M HX air mass flow rate X specific heat 

38 

RS-11 fan inlet temperature 

3‘) 

RS-li fan air mass flow rate 

40 

Chamber temperature from previous iteration 


21 
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Table IV 


DATA ARMY (CONCLUDED) 
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Table V 

INPUT DATA ARMY 

- Provides input data storage for a maximum of 


ARMY 

LOCATION 

DATA DESCRIPTION 

1,1 - 1,17 

Case #1 input data; corresponds to X-arrsy 
locations 1-17 

2,1 - 2,17 

Case #2 input data 

10,1 - 10,17 

Case i^lQ input data 




Table VI 
LOGIC KEY ARRAY 

- Provides storage for program keys 


DATA DESCRIPTION 


Case // being run 
Max // of cases to be run 
Flow chart key 
Print-out key 


Table VII 

SCALAR VARIABLES SUMMARY LIST 



B$ 

M2 

U2 

El 

Q1 

U3 ' 

E2 

Q2 

W1 

H 

T1 

Z 

HI 

T2 

Z1 

H2 

U 


K 

U 


Ml 

U 1 
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Table VIII 

SUBROUTINE DESCRIPTIONS 


SUBROUTINE 

NUMBER 

SUMMARY 

01 

! 

Interpolates data curves that have been transferred to the 

X- array in locations 101-200 

Array must be set-up in following order: 

X(lOl) : // of X-values (N) 

X(102) : if of y-values (M) 

X(103) - X (102 + N) ; X-values in ascending order 
X(102 r N + 1) - X(102 + N + M) : Y-values in ascending 
order » omit if M ■ 0 

X(102 + N + M + 1) - X(200) : Z-values in following 

order - 2(N,, M J , Z(Ni, M 2 ), Z(Nx, M) , 

Z(N2, Ml), iz(N2, M), 

Z(N, M) 

Array and scalar variables used: 

Al(6) 

Xl(6) 

Yl(6) 

Cl 

C2 

C3 

C4 

D 

Dl 

D2 

I 

II 
J 

J1 

J2 

J7 

J8 

J9 

K1 

K8 

L 

L7 

L8 

M 

N 

N1 

N2 

N8 


24 
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Table VIII 

SUBROUTINE DESCRIPTIONS (CONTINUED) 





N9 

Z1 

02 

Calculates air flow rate X Cp by iterating 350-M HX air 
outlet temperature and chamber dewpoint 
Scalar variables: 

5 

03 

Calculates air dewpoint at 350-M HX inlet 
Scalar variables: 

A2 

C 

P2 

Z1 

04 

Calculates 350~M HX UA, 

Scalar variables : 

E 

HI 

H2 

VI 

Z1 

05 

Calculates 350-M HX NTU’s 
Scalar variables; 

E3 

K 

M3 

06 

Calculates chamber dewpoint 
Scalar variables: 

A2 

F 

P2 

Z1 


25 
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Table VIII 

SUBROUTINE DESCRIPTIONS (CONCLUDED) 


SUBROUTINE 

NUMBER 

SUMMARY 

07 

Calculates air weight flow and Cp by Iterating RS-11 
fan Inlet temperature 
Scalar variables: 

C3 

G 

PI 

P2 

R1 

R2 

R3 

Z1 

08 

Calculates density of dry air and water vapor 
Scalar variables: 

P4 

R3 

ra 

10 

Calculates RS-11 fan, P5-50 LlOH assembly and 350-M 
HX air Inlet temperatures 

11 

Calculates 350-M HX air outlet temperature 







j 

t 



1 


HAMeLTOri STMIB^IARD 



Dvcnnof 

UMTTED 

TCC«tt«OIX>C4CStA* 


Table IX 


i PROGRAM LISTING 

i 


7 i^ ii.i- - ,.. I I 

10 mf RSECS ARS/H 20 LOOP PFRPnp^TAN^.^ 

20 COM X( 200 ),A( 10 , 17 ),A$(lO) 6 A,B$,v(A) 

30 IF Y(l)]l TPEN 250 j Y(l )-1 

40 REM FREON PROPERTIES - TEMPERATURE ( 1 ): 

RATA 0 ,10 ,20 ,30 ,A 0 ,50 ,A 0 ,70 ,S 0 ,90 , 100 , 110 , 120 , 

130 , l/.n, 150 , 160 , 170 , 180 , 190 , 200 , 210 , 220 , 230,240 
50 REM FP»E 0!1 PROPERTIES - ENTUAI.PT ( 26 ): 

DATA 9.44 , 11 . 81 , 14 . 21 , 16 . 61 , 19 . 04 , 21 . 49 , 23 . no, 26 . 4 P,? 9 , 03 , 
31 , 50 , 34 . 18 , 36 . 79 , 39 , 46 , 42 . 13 , 44 , 86 , 47 , 62 , 50 , 43 , 53.2 
60 RATA 56 ,59 ,62 ,65 ,68 ,71 ,74 

70 REM T 7 ATER ^WOR PROPERTIES - TEMPERATURE ( 51 ) ; 

RATA 32 , 34 , 36 , 38 , 40 , 42 , 44 , 46 , 48 , 50 , 52 , 54 , 56 , 58 , 60 , 62 , 64 , 66 , 
68,70 

80 REM t'?ATER WOR PP.OPEPJIIES - PRESSURE ( 71 ) : 

RATA . 08354 ,. 08603 ,. 10 /. 01 ,. 11256, .1217 ,.1315 ,. 141 « 0 , 
. 15323 , . 16525 , , 17817 ,. 19182 , . 20642, ,222 ,,2386 

90 DATA .2563 ,.2751 ,.2951 ,.3164 ,.339 ,.3631 

100 RE^t 350 -M Uy AIR SIDE FILM COrFFIClEMT ( 91 ) ! 

DATA 13 ,0 , 7.00 ,200 ,300 ,400 ,500 ,600 ,700 ,800 , 

900 ,i 00 f^,lino, 1200,1300 

110 DATA 9.6 , 13 . '>, 15 . 6 , 17 . 7 , 19 . 5 , 21 . 2 , 22 . 6, 24 , 75 . 3 , 26 . 4 , 

27.5,28.5,70.6 

12,0 REff 35 o^M n:r e 2 o sire film noEFFicmrr (ii 9 ) i 

RATA 9 , 0 , 100 , 150 , 700 , 250 , 300 , 350 , 400 , /.. 50 , 500 , 134 , 17 ", 

282 , 370 , 463 , 560 , 655 , 765,060 

130 RH'f 261 iiy EFPrC'T’IvniESS MA^ - F 21 / 1 ’ 20 , T-P 21 = 40 F ( 139 ): 

7 .200 .300 ,400 ,500 ,600 ,700 ,900 ^ 

?';00 .3000 ,3500 ,4000 ,4500 ,i 
1 ,1 ,1 ,. 9376 ,. 9995,1 * 

1 ,.*>84 ,. 9336 ,. 998 , . 0907 , ,ooo^^ 

. 0113,. 9703,. 0952,. •'f'37,. 9906,. rnoo 

. 07/, 3 , . o«i 3 , . 7960 , . r.n« 7 , . 5308 , , 7003 , 

. 7 '> 64 , . 9 « 37 , . 464 7 , . 6169 , . 7556 , . 862 , 
. 4132 , . 5496 , . 6797 , , 7014 , . 8739 , . 926 " 


*1500 %OO0 


.1 


,.736 


RATA 8 
opo 

140 data 1 
1 
1 

150 PA'TA .613 ,. 7073^.0730 

.0405, .707/,^. 0^30 

.97.82,. 9635,. 981 
160 pat-A .9577 
170 lUPTTT "?■ OF CASES 
INPirr •'nA'i’E 


(I-IO): ",Y(2)s 

: ",B$: 

i?!prf "ARE FLO” c'AR'^s nrsiRER, (''ES=i /::o=2) : ”,Y(3) 

1.00 I'’FTTT "TS PRI'r^’OlTT* ('T,S=1 /!''0=2) ; ",i’(4); 

FOP 7-1 TO sn iT*” ons; ppi'lT f - ";7: 

rrpn* ui sr.n'iA'i'IO” : '',.\S(E) 

ion TT'TPi’T "T RS-^o (nt-p r\ n •' a 62 1); 

om>/irn) = 'V\6v)i nmamAil 

(RTU/ER) - ",A(;’,31 

(R'tiVPP) = ",A(Z,4); OF J?00« 

(LP/R8) « ",A(Z,5): 

(cpn = ",A(Z,6) 


T'T'T "o C*'Ajr-S 
r’PI” "o C!'AT'“L 
?0o I*TTTT "o Ai^‘’‘0"TOS 
T'Tiirr *'C02 FJO” 
Ti'PTTT '•pp-n FLOI' 


IQUALI^IC 
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Table ix 

PROGRAM LISTING (CONTINUED) 


REtjiriD : GOTO ?,A0 


OEIGINAII PAGE 
OP POOR QUALn 


INPUT ’T.S-11 POKTR (WATTS) « ",A(r.,7): 

INPH’ **RS-5l FLOW (CRO = '',A(Z,P); 

ITTUT "RS-.-il POWER (WATTS) = ",A(?.,9) 

KIPUT "RS-Z51 FT.OW (LB/ITR) « ”,A(Z,10); OEIGINAE PAG 

IHPtrr "RS-Z51 POTJFJl (WATTS) = ”,ACZ,U): OP POOH QUA] 

INPUT ^'BYPASS FLOW (LB/HPO = ’*,A(Z,12) 

INPUT "Q SITTHATOR (BTU/IIR) » ",A(Z,13): 

INPUT "T 350M H20 I?^ (DFG F) = ",A(Z,1A): 

INPUT ”T 261 H20 IN (DEG F) = ”,A(Z,15) 

riPT’T "T 2f>1 F21 in (DEO F) « »',A(Z,lft)j 

IjtpuT ”261 F21 PLOW (LB/UR) = ”,A(Z,17): 

NEXT Z 

IF Y(1)[«Y(2) TFE" 260: Ya)**^: REljiriD : GOTO ?,A0 
FOR Z»1. TO 17; X(Z)=A(Y(1),Z) ; NEXT 7: X(in)»X(l); 

X( 19 )«* 3 . AlA*y (7) : X( 20 )=S 75 *X( 5 ) ; X(2l)*A27.5*!I(.')) : 
X( 2 ?)» 3 .Al/<*-‘’( 9 ); X( 23 )“X( 4 )+X( 19 )+X( 20 ) 
X( 2 A)«flC( 2 )+/( 22 )+v( 23 ): y( 25 )“X( 3 )+x( 21 ) : 

X(26)»X(2A)+X(25); X(27)=3,/(1A*X(11) : X(30)«=X(10)-xa2) i 
RESTDRE 139: FOP Z«101 TO 173; RFAD X(Z); ?!EXT Z 
GOSUB ♦01(X(30),K(17)): E1=Z1; IF X(15)*0 TTON 290; 
X(31)«xa5)-El*(X(15)“X(lfi)) ; X(29)=X(30)*<X(15)-X(31)) ; 
X(29)=«(30)*(v<31)-X(1A)) :,X?OTO 300 
X(28)"0: X(2«)-X(2rO+X(27)+X(i3); 

X(3i)««(16)+X(29)/X(30)*(l/El-1) ; X(15)“X(31)-i-X(29)/X(30) ; 
X(lA)aX(31) 

X(ini>-25: X(in?,)«0; RKRTOPJ? 1; FOR Z«in3 TO 152; READ X(Z): 
ruXT Z: GOSUB ’ni(x(l6),0): H1«Z1: lI2»ni-t-X(29)/X(17); ‘ 
PJ^STORE 26; FOR Z»103 TO 127; RFAD X(Z); ITEXT Z 
RESTORE 1; FOR Z«l?.8 TO 152; READ X(Z); NEXT Z; 

GORITR *Ol(i!2,n); x(3?.)«Zl: X(33)=X(3.A)+X(2f>)/X(30) : 

X (3A)» (X (33) *X ( 30 )+;: (15) *X(1 2) ) /X (10) 
X(35)»X(3A)+X(27)/X(10); X(A0)««O: X(A1)«0: X(A2)=50; 

X(A3)». 1271676; X(39)*23r.0.656*X(6)/(X(13)+A59.6) ; 
X(36)=.2A*y(39); X(37)»X(36) ; m=X(30)/2; RESTORE 119 
FOR Z«10? TO l?n: reap X(Z); NEXT Z: GOSUB *010J1,0): 
111*7.3003*7.1; GOSUB *02: GOSUB *10: GOSUB *11; 

X(A5)1*X(1A) Turn 360 
X (A 5)=:: (A 5 1+1; X(AA)»X(A5)+K(2A)/X(37) ; 
X(10)="(AA)*-X(23)/X(36): GOSUB *02: GOSlUl *10: GOSUB *11 
IF X(A5) rx(lA) THEN 3A0 
GOSUB *03; GOSl’B ’OA* IHH2/P1; 

Tl« (X. ( 37 ) *X (A A)+?: (30)* (U*y rA 2 )+X(A 2 )-X ( 33 ) ) ) / 

(H*?:(30)+X(37)) 

01=X(37)*(n-X(A5)>; Q2«01+X(25): IF 02[X(26) THEN 380: 
ni«0; T2«=X(33): T1*X(A4); 01»X(?A): Q2-X(26): GOTO 390 
t?«x(A'')-U*('” 1-X(A?)); IF T2]=T1 TIF,N 510: 
rit.(vr'./>«Tn/(v(A/,)-T9). m*X(30)/X(37); GOSUB *n5(El,Nl): 
ri^u*xi3'»\ 
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Table IX 

PROGRAM LISTING (CONTINUED) 


OlHGIIIAIJ pjiGE IS 

OF pooE emuTir 


sqn E?=(T1-X(A5))/(T1-X(1A)): H?,s»X(3n)*01/x<37)/n2; 
fiOSim ’05(E2,M2): 1I2=K*XC37)*Q2/0X: 
U3=((l/H)/(l+l/Il))*n3./n2+ri/(l+l/H)) ! lMIl+r2*U3 
400 I? U-X(4fi) TURN 550: IF U]X(46) THEN 510; IF X(1A)1»X(45) 
THEN 550: IF X(1R)]X<1) TIT,N 430: IF X(37) ]X(A3)*X(36) 

THEN 430: X(45)=X(1A): X(37)=XC43)*X(3fO 
AlO X(AA).X(45)+X(2A)/X(37): xaR)?X(44)-X(23)/X(3fO : GOSUB 'OA; 
oosnji »07: X(37)»X(43)*X(3A>: fiOSim ’10: 

T1=X(4A)-X(2A)/X<37) 

420 El»(ABS(Tl-X(A'i)))/X(A3>: IF E1]».5K-A THEN 410; GOTO 550 
430 IF X<18)»X(1) THEN 4A0: X(40)-xaO): X(41)»H: 

X(1E)»XC1’^)-.1; nOSlTT’ '03; GOTO AfiO 
440 El«(ABS(r-X(4A»)/X(4A): IF El[.5E-2 TIT.N 550; 

X (45)«fX ( 1A)+ (X (A5) -X (lA ) ) s^ti/X (A A) ; 

XC37)»X(2/0/C<(AA)-XCA5)): onsTIR '06: OOSUE '07: GOSUF 'lo 
A50 X(37)»X(2A)/(X(AA)-X(A5)): IF X(37)]»X(A3)*X(3f) THE?! AfiO: 
X(37)»X(43)*X(3fi) 

AfiO GOSim '10: G0Sin\ 'll: IF X(A5)3=X(1A) TFT.F 3fi0: 

IF X<1R)]X(1) THEN A90: 

X<37)=X (2A) / (X(23) /X (36)+X (IR)-X (lA) > ; ?' (A5) =X(1A) 

470 ROSITJ 'or-: noRlT; '07: nosur 'lO; X<37)=X(2A)/(X(4A)-X(45)): 
IF X(37)l=X(43)*X(3fi) THEN 360: X(37)=X(A3)*X(36): 

GosTiR M.1; noRni '06: no^im '07: nosiiE 'lo 
ARO X(37 ):pX(: 43)FX(36); OOSIin 'll: On-FO 360 
490 X(A5>-X<’l/0: X(lP)“X(A5)+(y.(?.A)-X(23))/.”:(36): GOPHF 
GOST'E '10; T1=.X(4A>-X(24)/X(37) 

500 E1=(ABS(T1-X(A5)))/X<A5); IF Ell = ,3E-4 THEN AfJO: GOTO 550 
510 IF X(45)=X(44) THEN 530: El=(AJiS(U-X(Afi)))/X(Afi) : 

IF El[.5E-2 T1’.EIT 550: X(37)=X(?A)/ (X(44)-X(Ar>)-,l) : 

IF X(37)i=X(36) TilEN 520: X(37)«X(36) 

520 GOSHE »10; GORHE 'll; GOSITB '06; GOPHE 'O?! GOSHB *10: 
X(37)»X(?y )/(X(4A)-X(A5)): IF X(37)[*X(36) THE?' 36C: 
X(37)*x(36): OOPUE '11: GOTO 360 
530 IF 0:(40)-X(lP))i;].l THEN 5A0; 

xao>=x(i3)+.i*((iT-x<:4r))/CH-x(4i))): GOprn *02 : gorub 'lO: 

GOSrn '11: GOTO 550 

5 'o x(iP)=?<(i")+i: oopim 'or: goruf 'lo; gophb *ii: goto 360 
550 GopT'H 'nr.; Gosrn ' 07 ; gophf, 'lO; nopur. 'll: 

X(4'’)*=X(6)*(v(3fi)-X(37))/X(.3fO : XCA7)“XC6)-X(4?*)-X(0) : 

X (50)=X (A 1)4.” (2,3>*X (6) /X (36) /X (S) : X (51) =X (35) / 1 065 
560 IF V(/,)ai TIT' 570; GOTO 660 

570 sFj.NCT prj:r 2n(i5fi): feint hexcodof.); 

T'niN'" "FP' or STApY Rtai’E COITITEH PnOOFA*'": 

PRT'T HFYfOAOAOA) 
s^.o PRi;r "nir /'• "•A?(y(i)): 

FFTir "’>A'T : ";R6: PRINT HEX(OAOA): 

PFTT"^ "X'n’i'T pA'^A 

5"o PNirruErT 6„'’o,xa),::C2),::(3): 

FPT- TOT”^ por^F(A) ^,7.(5) ,X(6) ; 

TipT'-'-i c.Txr. 7»^n,N(7),X(S) ,X(A) 



29 



HAIVIIiTOia SWaiD^D 

fLgWTEO 
' 4 SIF tieCHHOLDCKSm 

Table* IX 

PROGRAM LISTING (CONTINUED) 


600 PRBITUSIIIO 7in,X(10),X(ll),X(12): 
PRIMTUSINO 7?.0,X(13) ,X(16) ,X(17) : 

PREIT lirX(OAOA) 

610 PRINT "GAS LOOP OUTPiri DATA < 

pRi?n’PiNo 7sn,x(iP0,x(:^0),:'(io); q 

PRINTl’RIWG 7AO,XCA?0 ,xcn6),::(?.0) 

620 PRlim*SI!TO 7 SO,x( 3P),X(P7),X(?.1): 
PRmT>INO 7 60 , X (4 n) , X (A 7 ) , X (22 ) : 
PRBmiSIXG 770,X(44) ,X(4R),X(24) 

630 PRIim’Sr’o 7rn,xC4S),X(51),X(2rj); 
PRITmiSINO 7<‘0,x (50) , X (4f ) , v (2fi) j 
PRIT^T* HrX(OA) 

6A0 pRi:rr "cooiant loop otiTPur data -"s 
PR m^sr’o oon,x (31 ) , :: (14 ) , x (33) : 
PRPmtSiro P1C,X(34) ,X(35) ,X(15) 

650 PRINTUSIXn 32P,X(32)»X(3n),X(2R): 
PRPntSirTO 330, X (27) , X (20) : 

PRINT Hi:X (OAOAOAOAOAOAOAOAOAOAOA) 

660 IF Y(3)=2 TPT-’' 670: .LO/a "RSDCR2‘' 

670 v(i)=Y(l)+l; GOTO 250 

6R0 ?T RS-20 srrP" 0 CIlAIlUrR-S 

CIIAJIBER-L 

6'’0 XO CIIAH AVIONICS C02 imT F 

S-11 FLOW ' 

700 %RS-11 POimR RS-51 FLOL’ 

S-51 POWER 

710 XRS-251 PI-OW rr _251 POWE 

20 BYPASS FLOW 

720 XO TI20 AVIOXTCP T RR-261 F2 

RS-261 F21. 

730 XT ClTAIIIJn =-,7^/'/':". '''' TOTAI^ AIR F 

RS-11 

740 DK’fPOrT “-AViTV-"'./’/' WCP RS-.U 

RR-50 -S 

750 f"T* RS-11 r.M NCP 350-M 

RS-50 -L — .VAWi/iJiA 

760 XT RS~50 l:i s-jPVfJW'/'./AJf V 350-iM 

RR_5i 

770 35^“H IT'T V RVPASS 

350~K -S 




0 ciiAiiurR-s 0 

((f C02 imT now ?. 

;'‘4 RS-51 FLOL’ R 

RS-251 POWER 7: 

T RS-261 F21 TO «?/*./'? W 

TOTAI^ AIR n.Or 0 

WCP Rs-n n 


J!" NCP 350-M 
V 350-iM 
/;// V RVPASS 


n 


730 XT' 

310_tt 

OUT 

/I 

* 

W CnriDEESATF 


0 

350-M 

-T. 






7 on 

PS-51 

01 7T 

It rt 

• • 

ITA 350-M 


0 


-TO'^ 






OOO X'*' 

RS-7M 

1130 oin* — 

/I •' 

T 350-M P?0 Tt: 

Bm.fi f a 

T 

310-1* 

V30 or 







PS-"*;! 

iro I'T 

I V: 

• 1 

T AVTO** 1130 tn 




1 n?o 1 
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Table IX 

PROGRAM LISTING (CONTINUED) 


B?.0 7,7 RS-261 F21 OUT 1? RS-2f)l/B50-M n 

1120 nTsrn: 

B30 7 .(] RS-251 n RS-2B1 — 

BAO END 

B50 DEFFiI'01(ni,ni) 

Bfif) DBl Al(6),Vl(f)),n(6) 

R70 Il»mi: N'*^} >T2»2 

BBO IP X(I1)=3 920: IF X(I1)12 THEN 930: 

IF X(T1)[0 TI'ITl 950: IF X(Il)»n THEN 920: 

IF X(Il)-2 THH” 900: IF X(I1)]2 TIDIN’ 920 
B«n JI«1: GOTO 910 
900 TIa2 
910 N2»l 
920 11*11+1 
930 N1=N+1 

940 L*>I1; IF X(L)]0 TFEJl 9 BO 
950 Kl*-1: Zl-0: GOTO 1230 
9B0 N9=xa) : 

IF X<I.+l)fn THE” 090: IF Xa+l)10 TIIEF 9f,o 
970 NB»Oi GOTO 990 
990 NB*X(L+1) 

990 K1*0: kB- 0; C2»ni: Jl»Il+2: J2«n9+I3+1: 

IF C2EXCJ1) Tiin:: 1030: if C2»x(.ti) the:: 1040 
moo FOR J«,n TO J2; IF CZr^XC-T) the?! 1050; NFFT 
1010 K1«2: G2»X(.T2) 
mno J9=J2-’T: GOTO IPfiO 
1^30 Kl*1.; r,2=X(.Tl) 
iOAO J9»J1; GOTO 1060 

1050 IF J-Jlfl TITr;: 1030; IF J-.T1*1 TIU:!! 1040; 

IF J=J2 Trr: m20; ir j]j?. tit’t loi'^: 

1060 C3=r2: IF in]o T»*r: 1070 : fop. l«i to ::i: xi(l)=x(ip); 

L".=J9+'’«: yi(L>*X(T.O). J«=J0+1; L: I»l: GOTO 11.50 

l‘^70 Jl*Jl+’'«: J2*J2+F9i 02=01; IF T>?f}:(Jl> TKFIT 1.100; 

IF 02=X(J1) TOFF 1110: FOF .T=.T1 TO J2; 

IF nr [="•(.;) tt’fit ii^o; rnxT j 

1090 

1000 J0=J2-:': GOTn 1130 

1100 Kr.=3; nr=x(.7i> 

1.110 JR=J1; OOTfi i,no 

U20 T1' J-Jiri Ti’rv xmo: ir .t-,ti«i Trr ino: 

IF J=,T'’ l'’«0; IF Jl.T'' Tm 1000; .TP«.T-.’T2 

1.1.30 ,T7t=J0. T,3s.Tq4.*’(!ft(.T7-T1-l>; L7=T.5; FOP L»1 TO Kl; 

VI (1.)=X(.T7); V1(L)»X(L7); L7«J7+!’B; J7=J7+1; NEXT L; 

1=0; COTO 1150 

1.140 vi(i)a7.i; for 1=1 TO N: L7-LB+I: yi(I+l)*0: FOR M»1 TO ’ll; 
vi(T+l)=Vl(n-i)+j:(i,7)*jtl(M); T.7=L7+:!B; NEXT K; NEXT I; 
ro” L=i 70 :T1; ndO^rCJB); J3=JR+1; TTEXT L; 03=02; 1=1. 
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Table IX 


PROGRAM LISTING (CONTINUED) 




1.150 D«l: XlC’-*-?.)=5a(l)! i:i(r+1)='XlC2); FOR J-1 TO 111; 

Ai(j+i)»n(j+i)-xi(j>; rA»c5-n(J); if c^F)n Tm? U70: 
R1»Y1(,T); X1(1)=0; Xl(2)«0: ja(5)«n: Xl(4)»n 
llfiO xi(vT)*»l: on-’-n i?,?o 

1170 n-D*c4: OM i: GOTO iifio,noo,i?.oo 
IIRO JIl(J)»n4/Al(j+l); GOTO 1210 
IlOO X1(J)— 04: GOTO 1210 
1200 ywi(j)»(xi(J+?.)-xiCJ))*c4 

1210 NBJr J: Al(l)=Al0l+2): 7,l«0j FOP. J»1 TO 111: 

Xl(J)»D/(Al(J)*AlC.m)*Xl(,’r)) ; Z1»7.1+V1(.T)*X1(.T) ; 

HRX'J’ J 

1220 IF Il«n TI1T.,V 1140 




1230 Kl“Kl+KRj Sn.FCT PRINT 005: 

PRirr “OFF TAFLE IT'DIOATOF -“;E1 
1240 RETimn 
1250 PEFFN’n? 

1260 FOR B=1 TO 4: GOSUP *07: .X(37>»X<3fO ; 

X(A5)«X(10)-(X(24)-X(2'l))/X/'36)*. OOSUB ’06; GOSUR ’07: 

HF2CT B: X(37)»X(36) 

1270 return 
1200 DEFKI’03 

1290 X(101)*?0; xa02)=0; RTSXOIUI 51; FOR C«100 TO 142; 

READ X(C): KEXT C; GORUF ’ 01(X<45) ,0) ; P2-Z.1; 
A2a.r.22*T»2/(lA.f,96-P2)-*-X(25)AX(.56)/l065/:C(3D)/X(37) 

1300 FOR C=1 TO 3: P2=A2*a4.6or,--n2)/.622; NEXT C; 

RESTORE 71; FOR C-10.3 TO l.o.?; PF.AD X(C) ; ?TJ:T C; 

RESTORE 51; FOR C=3 23 TO 142: READ X(C) : EF.XT C 
1310 GOSTT. ’01(P2,0); XCi2)=71: 
ret^ir:" 

1320 nrFFN'04 

1330 Vl=X(fO'v(37)/,30?,5/X(36); RESTOPJ, 91; FOP. F«101 TO 12R; 
READ X(r): 'TXT E; GORUB ’01(V1,0); K2-llfi,48928m; 
X<46)»1/(1/H1+1/U2) 

1340 RETIIPJ; 

1350 nEFT7n’05(r3,M3) 

1360 IF >n«l T’’IT’ 1370; IF M3U TIIEU 1380; 

K*=M3/Cl-M3)*LOG((l-E3)/(i-F3/in)); GOTO 1.3O0 
1370 K=E3/(1-E3); GOTO 1390 
13‘'0 K=r3/(Tn-l)*T.OGCCl-E3/in) / (1-E3)) 

1390 rett’p:? 

J.A1.0 •''3; A?.=A2-X(21)/1065/X(39): FOP F“1 TO 3: 

P.2*A2*(lA.r.96-P23/. 622: NEXT F; GOSUB ’Q1(P2,0); Z(A2)=71: 
FvF.titr:: 

14?n BErF'1'07 

1430 X(101)=:?0; XC102)=Oj RKFTORE 51 j FOR 0*103 TO 142: 

nrjk.D x(r); nn"T o: oosim ’oi(x(A 2 ),o): pi«fi: 

00f.IT. ’0'?(R1,.35.76): R1-R3;’ P2*14.696-P1 
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Table' IX 

PROGRAM LISTING (CONCLUDED) 


1440 GOSUB '0R(P2,53.35): R2«R3; 

R3« (83 , 7fi*Rl+53 . 35*R2) / (R1+R2) ; C3», 24+. 27?)9*P1/P2 : 
FOR G»1 TO 6 

1430 X(39)«126073.44*X(6)/R3/(X(18)+x(4)/X(36)+459,r>): 
X(36)«G3*X(39): NEXT G; 

REXUPil 

l/ifiO DRFFlT'n8(P4,R4): 

R3«lA4ftp4/R4/ (X(18)+459.rO ; 

RETURN 

1470 DEFPJI‘10; 

X(3P)“XC1R)+X(4)/X(3P): 

XC4?)-Xa8)+(X(4)+X(19))/X{36) 

14P0 X(4/0=XC18)+X(23)/X(3f) ; 

REIITRI'T 

1490 DEFFH'll; 

X(45)=X(44)-X(24)/X(37) ; 

RKTITPN 
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RSECS FLOW CHART ROUTINE 


File Mama ‘'RSECSa" 


Abstract "BSECS2" automatically produces flow chart output (on 

previously prepared schematic drawings) of the case cur- 
rently being analized by the program "BSECS”. The flow 
charts are produced using the WANG 2200 plot bed plotter. 

Program Description 

A data block containing values generated by "RSECS” is transferred 
through use of a conmion block to program "RSECS2". This program then 
sorts the data and prints out the values in the appropriate location on . 
the schematic. Two separate schematics are used, one for the air loop 
and one for the water loop. Samples of program output are given in 
figures 10 and 11 followed by a program listing Table X included for 
reference. 

The only user action required for this program is the loading of the 
appropriate schematic on the plotter as required. 
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FIGURE 10 RSECS AES GAS IDOP SCHEriATIC 






[ 1 

' 1^-251 POI^P 

Q = 13043. 

W = 950.0 

T = 81.85 

o = 696.4 



HEAT EXCHANGER BYPASS 



350-M HEAT 
EXCHANGER 

W = 83.99 
Q = 82i^3.7 


NASA HEAT SINK 


I 


ES-261 heat 
EXCHANGER 

W = 5200.0 
Q = 21983. 


W = 450.0 



= 32.99 


Q - .000 


FIGURE 11 RSECS WATER IDOP SCHEMATIC 


GSE COOLANT 
IDOP 


T = 33.00 


Q = HEAT BTU/ilE 
T = TEMP DEG F 
W = Flow lb/he 
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Table X 


PROGEAM LISTING 


10 RD’ RSKCS2 PROGRAM LABELS DIAGRAM 
20 COM KC200) ,A(10,17) ,A$(10)6AjJ$,y(A) 

30 DIM, X${100)6»li(100) OfilfimAT t.. - ' 

40 SELECT PRINT 005;PR1NT UEX(a3): nw 

PRINT "RSl.CS FLOW CHART ROUTT NE" : PRINT QTTArTTTV 

50 FOR I»1 TO 51 

60 IF ABS(X(I))]=100000 THEN 80: 

IF A3SCa(1))1»10000 THEN 90; 

IF ABS(X(D) ]«1000 THEN 100 
70 IF AIiS(X(D) =100 THEN 110; 

IF ABS (X(D) 1=10 THEN 120; 

IF ABS(X(1))]=1 THEN 130:G0T0 140 

SO CONVERT X(I) TO X$ (I ) , // ) ; iJ (I ) = 0 ; GOTO 150 

90 CONVERT X(I) TO X$ ( I) , ( -fhh/f? • ) : B ( D -0 ; GOTO 150 
100 CONVERT X(I) TO X$ ( I) , <-// // // w • // ) : B ( I ) «0 : GOTO 150 

110 CONVERT X(I) TO X$U) , ;B(l) = l:GOTO 150 

120 CONVERT :<(I) TO X$ ( I ) , ( -Z'Z' W/// ) ;3(I)«l;GOTO 150 

130 CONVERT X(I) TO X$ (I) ,(-//• //f?) ;B(I) = 2;aOTO 150 

140 CONVERT X(I) TO X$ ( I) , Z///Z/) :B(I)=2:GOTO 150 

150 NEXT I 
160 SELECT PLOT 414 

170 STOP "LOAD GAS LOOP SCHEMATIC ON PLOTTER THEN KEY CONTINUE" 
180 PLOT [1, ,C) , [13,0.5] ,[. ,51] 

190 PLOT [ 19.50*13,29.50*20,0] ,[* ,X$(13) 1 , [B(18)*13,0,U] 

200 PLOT [-7*13,-20,U] , I , ,X$(42) ] , (I5(42)*13,0,U] 

210 PLOT 1-7*13,-20,0] ,[, ,X$(2) ], [3C2)*13,0,E] 

220 PLOT [-7*13,-20,U] , [, ,X$(3) ] , [S(3)*13,0,U] 

230 PLOT t-7*lj.-20,U] , t , ,X$(5)] , [B(5 )*jl3,0,U] 

240 PLOT [-17*13,-7.25*20,0] ,[, ,X$(18)] ,[B(18)*13,0,U] 

250 PLOT [3*13,-20,0] ,[, ,X$(4) ], tB(4)*li,0,U] 

260 PLOT [-7*13,-20,0] ,[ ,,X$(33)) , [li(33)*13,0,U] 

270 PLOT [5*13, 0, U] ,[. ,X$(6) ], [3(6)*13, 0,0] 

280 PLOT [-7*13,-20,U] , [, ,X$(19)] , [B(19)*13,0,U] 

290 PLOT [-7*13,-20,U] , [ , ,XS(49) ] , [B(4g)*13,0,U] 

300 PLOT [7*13,2*20,0] ,[, ,X$(20)1 , [U(20)*13,0,U] 

310 PLOT [-7*13,-20,0] ,[, ,X$(21) ], [B(21)*13,0,U] 

320 PLOT [-7*13,-20,0] ,[, ,X$(44) ], [BC44)*13,0,U] 

330 T=(aC44)*X(43)+a(4 5)*X(47)) / :;(6) 

340 IF ABS<T)]=100 THEN 350;TF A3SCT)]=10 THEN 360;IF ABS(T)]= 

1 THEN 370;IF A3S(T))=0 THEN 380 
350 CONVERT T TO T $ , (- ^ ? • ? # ) ; T2=0 ; GOTO 390 

360 CONVERT T TO T$ , :T2 = 1 :GOTO 390 

370 CONVERT T TO T$ ,(-/»• ?/0 : T2 = 2 ; GOTO 390 

330 CONVERT T TO T$ , (-. :T2 = 2 ; GOTO 390 

390 PLOT [-2*13,13. 25*20,0] ,T$] , [T2*13,0,U] 

400 PLOT [11*13,-10.25*20,0] ,[, ,X$(47)], [3(47)*13,0,U] 

410 PLOT f-7*13,-20,U] , I , ,:<S(24) 1 , [B(24)*13,0,U] 

420 PLOT [-7*13,-20, U] ,[, ,X$(25) ], [3(25)*13,0,U] 

430 PLOT [-7*13,-20,11] ,[, ,a$( 45) j , tIl(45)*13,0,U] 

440 PLOT [-10*13,-3*20,1:1 ,[, ,X$C14) ]. I i(l4)*13,0,U] 

4 50 PLOT [-7*13,-4*20,11] ,[, ,X$ (33) 1 , (;!(33)*13,0,U] 

-.60 PLOT [-7*n,-20,uj , [ , ,X$ C3Q) 1 , [BC30)*13,0,U1 
470 PLOT [-7*13,-20,11] ,[, ,X$(26)] , [B(2G)*13,0,U] 

480 PLOT [-29*13,-2*20, U] ,[, ,X$(3)1 , [0(3)*i3,0,U] 
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540 

TIC 

NUR" 

550 

560 

'570 

,580 

590 

600 

- 610 
con 


PLOT [-7*13,-20,01 ,[, ,X$(22) ], [11C22)*13,0.U] I 

PLOT [-21*13,-3.5*20,0], [,,X$(50>] , [B (50)*13 ,0,0] 

PLOT [25*13.-3,0*20,0] ,( ,,X$(51) ], [B(51)*13, 0,0] 

PLOT [, ,R] , [23*13,34*20,0] 

K»Y(1) -.PLOT [ , ,"CA3E; ^' ] , [ , , A$ (K) ] ; 

PLOT [3*13,0,0] ,[,, "DATE! J , [ , , 3$ 1 , [ , , R] 

SELECT PRINT 005: PRINT ; PRINT : STOP " REMOVE GAS LOOP SCHEMA 
AND LOAD WATER LOOP SCHEMATIC ON PLOTTER THEN KEY CONTIi 

I . . — .. .. . I 

PLOT [21*13,33*20,0] ,[, ,X$(34) ], [B(34)*13, 0,0] 

PLOT 4*13,-.50*20,0] , [, ,X$(35) J , [B(35)*13,0,0] 

PLOT [-14*13, -6. 25*20, 0],[,,X$C10)l,riJ(10)*13, 0,0] 

PLOT [-7*13,-20,0] , I , ,X$C27) ], [BC2-7)*13,0,U] 

PLOT [-14*13,-20,50*20,0] ,[, ,XS(30) ], [R(30)*13, 0,0] 

PLOT [-7*13,-3*20,0] ,[, ,X$( 33 ) ], [r>(33)*13, 0 , 0 ] 

PLOT [20*13,26.25 *20 , 0] , [ , , X$ ( 13 ) ] , [ B (13) *13 , 0 , U] -- ■ 

PLOT [-9*13,-2*20,0] ,[, ,"T = ^'l ,[, ,X$(15)] , [B(15)*13 ,0,0] 

PLOT [-9*13,-4*20,0] ,[, ,X$(12) ], [B(12)*13, 0,0] 

PLOT [-6*13,-8*20,0] ,[, ,X$(47) ], [B(47)*13, 0,0] 

PLOT -7*13,-20,0] ,[, ,X$C26)i , [B(26)*13, 0,0] 

PLOT [-16*13,-11.25*20,0] , [ , , X$ ( 14) ] , [ B (14) *13 ,0 ,0] 

PLOT [3*13,-20,0],[,,X$(23)],[B(28>*13,0,0] . 

PLOT [4*13,20,0] , (,,X$(3i)) ,[B(31)*13, 0,0] i 

PLOT [5*13,26.5*20,0] ,[, ,X$(32) ], [B(32)*13, 0,0] 

PLOT [-5*13,-3*20,0] ,[, ,X$(17) ], [B(17)*13,0,0] 

PLOT [-7*13,-20,0] ,[, ,X$(29) ], [B(29)*13, 0,0] > 

PLOT [-9*13,-11.5*20,0] ,[, ,X$ (1*6)1, [B (16) *13, 0,0] 

PLOT [, ,R] , [30*13,33.75*20,0] , [,,"CASE! “1 , [ , , A$ (K) ] , 

[3*13, 0,U],[,, "DATE! "],[,, B$i ,[, ,R] 

SELECT PRINT 005:PRINT HEX(03) ; 

Y(i)«Y(i)+i • ; 

LOAD DC R "RSECS" . ! . . ‘ ‘ | ' 

END ■ ' ■ , • 
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350-M HEAT EXCHANGER TEST RESULTS DATA ANALYSIS 


File Name "350-M HX" 

Abstract "350-M HX" analyzes test data and provides revised 

performance curves for the 350-M heat exchanger. 

The program is designed to be used with a WANG 
2200 - series computer system. 

Program Description 

For a maximum of 50 data points, the program will Iterate the hot 
or cold side hA to obtain a UA balance. Curves of hot side film 
coefficient verses air velocity and cold side film coefficient 
versus water flow per start are stored in the program as internal 
data. These curves and water vapor property tables are interpol- 
ated by using an adaptation of the Hamilton Standard Division's 
"UNBAR" routine. See Appendix B for detailed description of 
analysis and computer program listing. 

350-M HEAT EXCHANGER PERFORMANCE PREDICTION PROGRAM 


File Name "CONEHX" 

Abstract "CONDHX" uses inlet temperature and flow data to 

predict performance of the RSECS 350-M condensing 
heat exchanger. This program runs on the WANG 
2200 minicomputer system. 

Program Description 

This program uses predicted curves of air and water side hA's 
versus flow combined with a "pinch point" analysis to predict 
performance of a condensing heat exchanger. 

The user supplies input temperatures and flow rates as requested 
and the program generates values for outlet temperatures and total 
heat exchanger load. 

Presented here is the result of using these programs to analyze 
the results of testing conducted on the RSECS 350-M condensing 
heat exchanger. Also presented are the analysis methods for the 
data analysis program and the HX thermal performance program 
along with listings of the two programs. See Appendix C for 
detailed description of analysis technique and program listing. 
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APPLICAIION OF WANG HX DATA ANALYSIS 
AND 

PEEFOEMANCE PEEDICTION PROGRAMS 


1.0 Summary 

The SSECS cabin condensing heat exchanger was tested Nov. 26 ** 

Dec. 5, 1974 to determine thermal and pressure drop performance 
and also the operating characteristics of the integral conden- 
sate removal device (SLUEPER) for both design and off design opera- 
ting conditions. (Reduced test data presented in Appendix A). 

Thermal performance was evaluated by measuring air and coolant 
inlet outlet temperatures over a range of (1) air flow^ (2) cool- 
ant flows and (3) inlet air dewpoints. 

Pressure drop performance was determined by measuring inlet and 
outlet pressures for the air stream and coolant lines. ' This per- 
formance was measured over the same range of conditions as the 
thermal performance. 

The slurper was evaluated by collecting and measuring the conden- 
sate removed by the heat exchanger and also observing visually the 
air ducts downstream of the unit to detect any water carryover. 

Test results showed that the unit performed as expected and met 
all heat and condensate removal requirements for the B5ECS system. 

This testing was done for two major reasons. 

(1) To verify that the heat exchanger thermal and condensate 
removal performance is within arbiter operating limits. 

(2) Verify the analytical procedure used to predict the con- 
densing heat exchanger performance. 

Satisfying item #1 indicated that the RSECS condensing heat ex- 
changer could be used in the ESECS system to simulate the orbiter 
condensing heat exchanger (in terms of heat and condensate removal 
ability). The RSECS unit for the same inlet conditions will not 
perform exactly the same as the orbiter unit because of basic 
differences. The RSECS unit is a tube fin design and the orbiter 
is a special plate fin design. In spite of this difference, 
results of this test show tliat the RSECS unit can be configured to 
perform exactly as the orbiter unit. The problem Is to predict 
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what configurations are required to produce various desired opera- 
ting levels. To do this the analytical procedure mentioned in 
item #2 above must be used. This procedure gives heat and conden- 
sate removal performance as a function of .inlet conditions for the 
air side (temperature, dewpoint, flow rate) and coolant side 
(temperature, flow). Data from this test was used to verify and 
modify the prediction procedure. This modified procedure can now 
be used with confidence to set the inlet conditions to those values 
required to produce any desired orbiter heat removal or condensate 
removal rates. 
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2.0 Thermal Performance Analysis 

2.1 Data Modification 

Test data was hand recorded for each test point after the heat 
exchanger had apparently reached steady state conditions. 

Initial review indicated some problems with this data. First of 
all, the air side outlet dewpoint consistently read above the out- 
let air dry bulb temperature. In a real system this effect cannot 
occur because the water vapor would immediately condense to form 
liquid water on the duct walls. Also when the amount of heat 
removed from the air side was compared with heat added to the 
coolant side (heat balance) these values agreed within less than 
85% in most cases, A good heat balance (95%) indicates good test 
data taken at a steady state condition. 

Both of the problems mentioned above were resolved when the results 
stored by the automatic data recording system during the test were 
reviewed. This data was presented in the form of computer gen- 
erated plots of each test parameter vs test time. Detail review 
of these plots indicated errors in the hand recorded data due to 
instability in readings and errors in picking steady state condi- 
tions. 

Corrected values were tabulated and used in subsequent analysis of 
the BSECS condensing heat exchanger thermal performance. 

2.2 Data Reduction 

The modified and corrected test data (Appendix A) was input into 
a data reduction computer program stored on the WANG minicomputer 
system. The program used this test data to derive curves of film 
coefficient vs flow rate for both the air and coolant sides using 
an iterative procedure described in Appendix B. 

Results of this analysis are presented in Appendix B.3 and the re- 
sulting film coefficients for the air and coolant sides of the HX 
are plotted in figures 12 and 13. From these results (App. 
B.3) it is seen that the overall heat balance for each test point 
was 96%, indicating that the test data analyzed was very good. It 
is also seen from figures 12 and 13 that the film coeffi- 
cients behave exactly as predicted in the original Hamilton 
Standard RSBCS condensing heat exchanger dociunentatlon. 
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Results of this procedure satisfied the principle objective of 
this test; that is, to provide realistic information on film 
coefficient behavior that can be used to generate heat exchanger 
performance for any desired conditions. 
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FIGURE 12 350-M CONDENSING HEAT EXCHANGER AIR SIDE FILM 

COEFFICIENT VS AIR FLOW 
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2.3 Performance Prediction 

The film coefficient Information generated by the data reduction 
program is used as input into another WANG minicomputer program 
to produce ESECS condensing heat exchanger performance predictions 

This program used a procedure described In Appendix C to generate 
predictions of air and coolant outlet temperatures and heat loads 
(sensible & latent) and outlet dewpoints for the heat exchanger 
based on the film coefficient data and Input data for air and 
coolant sides of temperature, dewpoint and flow rates. 

One problem area noticed during this test was an uneven split in 
heat rejection between coolant loops when both loops were working. 
This condition Indicated that for the same inlet temperature Into 
each coolant loop the outlet temperatures were not equal, indica- 
ting some sort of uneven flow distribution Inside the heat ex- 
changer itself. Test results showed that the split between loops 
varied with inlet dewpoint, coolant Inlet temperature, coolant 
flow rate and air flow rate. Analysis of these results produced 
a technique for predicting this heat load split which was incor- 
porated into the performance program (see Appendix C2 for details) 
to produce a program capable of matching all test results. 

This final modified procedure allows the ESECS condensing HX to 
be configured to simulate any desired orblter operating conditions 
This procedure will allow the ESECS unit to be substituted for the 
orblter unit in any ESECS system level testing and still maintain 
any desired level of thermal performance. 
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3.0 Conclusions and Recommendations 

It can be concluded from this test and subsequent analysis that 
the ESECS condensing heat exchanger can meet orblter performance 
requirements and It can be used as a substitute for the orblter 
condensing unit in the ESECS system level tests. 

The testing provided correlation with a thermal analytical per- 
formance prediction procedure for the unit and subsequent analysis 
of orblter operating points indicate the ability of the unit to 
match orblter requirements for heat and condensate removal and 
delivery temperature. Using the correlated procedure it is possi- 
ble to configure the ESECS unit to match any desired orblter point. 
For example; to meet some defined heat removal, delivery tempera- 
ture and latent load; the prediction procedure will provide 
necessary settings for air and coolant inlet temperatures or air 
and coolant flow rates depending on whlth parameters are fixed. 

It is recommended based on the results of this test that the ESECS 
condensing heat exchanger be used as a substitute for the orblter 
condensing unit in ESECS system level tests until an actual orbl- 
ter unit becomes available. 
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RSECS ARS GAS LOOP AP ROUTINE 


File Name "ARS DP" 

Abstract "ARS DP" calculates the corrected (59°F, 29.92 in Hg) 
pressure drop through the Hantllton Standard supplied 
RSECS hardware. The program Is designed to be used with 
a WANS 2200 - series computer system. 

Program Description 

By inputting total RSECS air flow and the number of BS-11 fans opera- 
ting, the program will calculate the corrected pressure drop through 
the RS-193 Filter Package, the RS-191 ARS Fan Package, the RS-190 
C02/Temperature/Humiditv Control Package, the 350-M heat exchanger, 
and the ARS outlet duct. The results are displayed on the CRT, 

A program listing. Table XI Is enclosed for reference. 
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Table XI 
PROGRAM LISTING 

Deigimal page is 
iO®. POOE <9iUALIT3r 


RTM - RSKrf? GAR I.OOP Prr.FSnRT DROP 
IJTPIJT *V‘ RS-U FA??P OPGRATI-T, - ”,F1 
UIPIJT "TOTAL AIR FLOW (CKI) » ",01 

RTTvf - RR-1«R 

Pl»C.n7r'5/.n7no)*(.0235*oi!q/l73l?.+.3*01,/ir>7) 

REK - P.S-1?1 

P2b= ( . 07f.5/ . 070?) * ( , 003r./.*pi 12/173 ! 2+ . 1 1 * (Ol/fl) ! 7/500 ! 2 

+ , 02 0 3 5*01 ! 7 / J.7 7 1 ')) 

PJT< - RS-lPO 

''7f 5/. O7orj?.(,0ft35*oi! 2/1771 2+.nifr,+ . 0125*011 2/173!?) 
RI2*! - a”TLr*’' nTTCT 

P4= ( . 0745/ . 070?) * C. 0O/i73*ni ! 2/173! 2+1 . D*oi ! 2/200 ! 2) 

RM - 350-1' ??:' 

Cl“+,Pl?o^;i]|73fii7_A ; C2e+.0or35O5,3044E-*: 

C3=+, HO£133274 ?2n-5 : CA=-. 11754f,5209E-7 : 
C5*+.70'’fi''5r«fi03ir_i n. 23r2?.5502''22T'-i,2 

C7=+,/‘?.05717 i 725r_i 5. c'^c-. 2O7O''1073453’7 _i fJ 
P5= ( . 0745/ . 070?) *0. P* (01+02* (01/ . ni5)+C3* (01/ . 015) 1 2+ 

04* (01/ . 71,5) ! 3+05* (01 / , 815) ! ^^+C4* (01/ .015) 1 5+ 

07* (cil/ . *15) ! frfC8* (01/ , 815) ! 7 ) 

Pfi»4* (144*01*SQPv(./)765) /?.R. 24/iO<J6) I 7.+P5 

P7“Pl+P2+P3+PA+pfi 

PRI?^T 

PRi^rr 

PPJT "F.S-'’«'2 O'" (r* 1120) t= »;Pl 

ORriT "P.S“l‘'l OP (T’>. pon) = ";P2 

PRUr "RR-100 DP (TTJ }I20) = ";P3 

PRI'TT’ "35''-?' i”C O'" (t:* oon) n *'.pr 

FRIT’ "OUTL!*^ t>p(T’' H 2n) « "jp4 

PRi;r " ^ " 

PPITP’ "TO^AI- P* (I” ?»?0) c ";P7 

' )"2> 
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File Name 


GENERALIZED PLOT PROGRAM 


Abstract 


"Plot" uses the WANG 2200 flat bed plotter to automate 
production of plotting of any desired set of data. Th?P 
program can plot point by point or plot a desired func- 
tion in equation form, and in addition, completely label 
the resulting plot in any desired format. 


Program Description 

"Plot" uses the WANG 2200 flat bed plotter and the WANG 2200 minicom- 
puter system commands to produce plots of data or equations. As sup- 
plied, the WANG had no software to run the plotter; program "Plot" 
provides this function. 

Required inputs are requested on the CRT and responses are keyed in 
followed by keying "execute". 

Available options of this program are: 

1. Point by point plotting. 

2. Equation plotting. 

3. Matrix point plotting. 

4. Regression analysis plotting. 

For user reference the following items are included: 

Table XII Description of input requirements for program and plotter 
set up procedure 


Figures 
14 - 16 


Samples of results of program use in different modes 


Table XIII Program listing. 
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Table XII 

PLOTTER SETUP AND PROGRAM INPUTS 
Plotter Setup and Program Inputs 

This example is for operation where the user has generated a set of 
data points in some other program (RSECS) , stored them in an array 
and a plot of the points is desired. 

Initially the user must do two things; 1) set up the plotter and 
2) decide what type of plot is wanted. 

1. Plotter Set up 

• set plotter power switch in "on" position 

• set pen switch in "down" position 

• set chart switch in "release" position 

' • insert paper - line it up with bottom ridge and ridge on left 

of plotting surface 

• set chart switch in "hold" position 

• using control knobs set pen at 0,0 zero reference position and 
press check button. Press scale adjust check button and set 
pen at 10,10 using control knobs, then press scale adjust check 
button again. 

2. Type of Pl.t 

• Determine desired location of axis intersection point on page 

• Pick X axis's increment for major divisions (units/in) 

• Pick Y axis increment for major divisions 
Pick X and Y axis ranges 

• Pick X and Y axis labels 
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Table XII 


PLOTTER SETUP AND PROGRAM INPUTS (CONTINUED) 


Example: 



2.5 

Position 2,2 

2.0 

X axis unit/in 2 

1.5 

Y axis unit/ln ,5 


X axis range 0,8 

.5 ^ 

Y axis range 0,2,5 

^0 ’2“ "4 ■6“"8 

Novr proceed to answer questions that 

appear on the CRT, 



I 
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Table XII 

PLOTTER SETUP AND PROGRAM INPUTS (CONTINUED) 


QUESTION 
ON CRT 

TYPED IN 
RESPONSE 

DESCRIPTION 

X axis Increment 
units/ in? 

2 


Delta between major 
divisions on X axis 

Y axis increment 
units /in? 

.5 


Delta between major 
divisions on Y axis 

Location of axis 
intersection 
(position on page in 
inches - X, Y)? 

2,2 


Location of 0,0 
point on plot is 2" 
over and 2" up from 
pen reference point 

Limits of X axis 
(min value, max value) 

0,8 



Limits of Y axis 
(rain value, max value) 

in 

• 

CM 

O 



X, y values at 
intersection 

0,0 



X axis label 

Delta 

point 

dew 

(F) 


Y axis label 

H 2 O flow 
Lb /Hr 


Location of X axis 
labels 

( 1= ab 0 ve , 2=b e low) 

2 



Location of Y axis 
labels 

deleft, 2-=right) 

1 



Plot points or curve 
(l=point, 2=curve) 

1 


Purpose is to plot 
points generated by 
p revious program 

IVs 1 iVil plot svmlutl 



Entering nothing 
causes centered dot 
to be used as plot 
symbol 
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Table XII 


PLOTTER SETUP AND PROGRAM INPUTS (CONCLUDED) 


QUESTION 
ON CRT 

TYPED IN 
RESPONSE 

DESCRIPTION 

Are data points to 
be loaded from array 

1 

Array was loaded 
for previous program 

First and last points 
to be plotted 

1,15 

15 points were gen- 
erated and are to be 
plotted 

continue to 
plot points 

Continue 

Starts plotting of 
points 

Do you wish to 
connect points 
with line segments 

1 

Connects data points 
to form desired 
curve 


Reset 

End of plot routine 

Do you wish to add 
labels to plot 
(0=no, l=yes) 

1 

Activates portion of 
program that makes 
plotter act like a 
typewrltar 

Desired character 
size 

1 

Selects size of 
characters for la- 
bels 

(smallest=l, 
larges t= 10) 

Do you wish to 
continue plotting 

0 

Ends program 






f 

i 
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FLOW (LB/HR) 

.000 2.00 4*. 00 B.00 



2.00 


1.50 


1.00 


,500 


.000 


T 


FinUEE 15 SAMP]ffi PIDT 
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Table XIII 


PROGRAM LISTING 


10 ’xr.y sl':;’U)i:ti:m: "plot" 

20 COM X9(100) ,y9(l00) ,C(10) ,X$25,Y$25,P$l 
30 DEFFN‘00"PLOTI" 

40 DEFFN'01"CONVERT" 


OBIGINAIi PAGE 1 > 
OF POOE QTJAOTl 


50 SELECT PRINT 005:PRINT 11EX(03) 

60 PRINT iPRINT " WANC 2200 GENERAL PLOT ROUTINE ":PRINT 

" DEVELOPED (iY '>JILD‘ >iILL AYOTTE ( 9 / 7 4 ) " : P R INT ;PRTNT 

70 INPUT "X AXIS INCREMENT (UNITS / IN) ", XO 
80 INPUT "Y AXIS INCREMENT (UNITS/ IN) ", Y'J 

90 PRINT "LOCATION OF AXIS INTERSECTION" : INPUT "(POSITION ON PAG 
E IN INCHES- X, Y )",Xi,Yl 

100 INPUT "LIMITS OF X AXIS (MIN VALUE, '*AX VALUE) " , S I , S2 

110 INPUT "LIMITS OP Y AXIS (MIN VALUE, ’'AX VALUE) " ,T 1 , T2 

120 INPUT "X,Y VALUES OF AXIS I NT ERS ECT I ON " , Cl , C2 
130 INPUT "X AXIS LA2EL",X$ 

140 INPUT "Y AXIS LAIiEL",Y$ 

150 Fl-100 . /a0:F2=100, /YO 

160 GOSUa 500 

170 PLOT [1, ,C1 , (, ,S] 

180 INPUT "PLOT POINTS OR CURVE ( 1= POINT , 2=CURVE) ", U1 

190 IF Ul=l THEN 310 

200 PLOT I , ,R] , [100*Xi, iOO*Yl,U] 

210 X4,Y4,K,E3,E4,EG,ES,E7=0;X$=" " 

220 INPUT "DESIRED PLOT RANGE (MIN AND MAX VALUES) ", Wi,/2j INPUT 
"DESIRED PLOT INCREMENT", D 

230 STOP "INPUT EQUATION TO HE PLOTTED ON LINE 250 THEN XEY RUN 
240" 


240 FOR X=W1 TO U2 STEP D 

250 Y=C(1)+C(2)*X+C(J)*X!2+C(4)*X! J+C(5)*X!4+C(6)*X!5+C(7)*X!6 
260 X5=X-C1;Y5“Y-C2 

270 IF X[]Wi THEN 280 ; Ul=l iGOSUU ' 02 (X5 , Y 5 , X4 , Y4 ) : Ul*2 ; GOTO 290 
280 GOSUjJ *02 (X5,Y5,a4 ,Y4) 

290 NEXT X 

300 PLOT t,,U]:PL0T [,,R]; GOTO 1350 

310 XS = " ";PRINT jPRINT ;INPUT "DESIRED PLOT SYMBOL" ,X$; IC=1 :X4 ,Y 
4 = 0: INPUT "ARE DATA POINTS TO LE LOADED FRO I ARRAY (N0=0 , YES» 1) " 
,D:IF D=1 THEN 340 

320 PRINT :PRTNT "INPUT DATA POINTS (STOP PLOTTING BY SETTING X, 
Y=N,N)":PRINT 

330 INPUT "X,Y = ",X9$,Y9S:IF X9$=*"N"TllEK 410:CONVERT X9$ TO X9 ( 
X):CONVERT Y9$ TO Y9(K) :GOTO 360 

340 PRINT ; INPUT "FIRST AND LAST DATA POINTS TO BE PLOTTED" , X, K5 


350 STOP "KEY CONTINUE TO START PLOTTING POINTS IN ARRAY" 

360 A = X 9 ( K ) - C 1 : Y = Y 9 ( K ) - C 2 : X it , y 4 = 0 

370 IF K]1 THEM 3S0:PL0T [ , , R] , [ 100*X1 , 100*Y1 , U ] , [F1*X , F2*Y ,U I , 
I,, )] ,t,,X$] :GOT0 390 
330 GOSUS '02(X,Y,X4,Y4) 

390 PLOT [-X*F1 ,-Y*F2,U] 

4)0 X=n+ 1:TF D=0 THEN 330:IF K]=K5+i THEN 410;GOTO 360 

410 INPUT "DO YOU NISH TO CONNECT PLOTTED POINTS WITH LINE SEGME 

NTS (YES = 1 , N0 = 0) " , Q 

420 IF 1=0 THEN 1350: INPUT "FIRST AND LAST POINTS TO BE CONNECTE 
D ^ * L L ^ 

4 X4,Y4,i;,i;},i:4,1;6,l8,1.7 = 0:II1 = 2:i’LOT { , ,"J , I 100*X1 , U )*Y1 ,UJ 

*.ii> FOR 1 = 1.0 TO I.t) 


4 m) 
4 t. .1 
/ 0 
4.iO 

4 00 

5ill> 

510 

52.3 

5 30 
540 


A^A«( I)-G1 : Y = V’t( I )-G2 

IF Till,.? V:.I:N .'.70:11 = 1 * 02 ( X , V , .XA , Y4) :U 1-2 :GOTO 4.S0 

.MSii'i ' oj^A.v , ,Y.'t) 

:e.xt I 

PLOT (,,U):PLOT [,,U]:GOTO 1350 
SELECT PLOT 414 

REM THIS SU5R0UTINE DRAWS AND LABELS AXIS 
PLOT (1,,G),(12,,S] 

INPUT "LOCATION OP .< AXIS I.ASELS ( 1 = ABOVE , 2* BELOW) " , L I 
INPUT "LOCATION OF Y AXIS LABELS ( 1= LEFT , 2- RIGHT) ", L2 
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Table XIII 

PROGRAM LISTING (CONTINURD) 


550 AI=F1*AHS(S1-Ci) :A2«F1*AUS(S2-G1) ; A1 = F2'''AUS (T1-C2) ; il2^F2*A3S 
(T2-C2) 

560 PLOT t , . [10Q*X1,100*Y1,U] , 1-A1,0,U] , [Al+A2,0,n] , [-A2,-^a, 

U] , fO,Rl+B2,i)] 

570 :t5=(AIJ3(Sl-Cl)+ARS(S2-Cl) ) / ;{0:N5=(ARS (T1-C2)+ABS (T2-C2) ) / Yg 

sao K =0 


S3=S1-X0 

PLOT t-3,-(IU+B2) ,U] 

FOR I3-=l TO N5+1 
PLOT [6,0,n] , [ , ,U] 

IF I3=N5+1 THEN 640:PLOT 
NEXT 13 

PLOT t-(Al+3) ,-(B2+f.) ,U] 
FOR 14=1 TO M5+1 
PLOT (0,12,i)J , [, ,UJ 
IF I4 = M5+1 THEN 6‘JO:PLOT 
NEXT 14 

IF Li=2 THEN 710;PLOT [- 
PLOT [-(A1+A2 + 24) ,-36 ,i:] 
FOR 1 = 1 TO :(5+1 
IF I]M5+l THEN 340 
S3=S3+X0 

IF A3S(:n) ] =i'! lO. riiLU 77 


[-6,F2*Y0,yJ 


[Fl*A0,-i2,L] 




[-(A1+A2+24) ,20,U] :OOTO 720 


3) ]=10.T11EN 
760 CONVERT 
770 CONVERT 
780 CONVERT 
790 CONVERT 
800 CONVERT 
810 IF E[]0 


3) ] =i>! lO. riiLU 770; I" A 
790: IF ABS<S3) ]=1.T»EN 
S3 TO S3$, (-,/f#//) :G0T0 
S3 TO S3$, (-f?////#) ;GOTO 
S3 TO S3$, (-«////•): GOTO 
S3 TO S3$, •#) .'GOTO 

S3 TO S3S, ;GOTO 

320; 


THEN 


3) j = 100. THEN 

300 

310 

310 

<ao 

BIO 

810 


730;TF A3S( 


TF S3 MCI THEN 330: PL 
PLOT [ (Fl*X0)-b0,0,U] 
.\=K+1;NEXT I 
IF L2=i THEN 360; PLOT 
PLOT (-(A2+100) ,0,U] 
IF Ll=l THEN 080:PL0T 
PLOT [0,-(Bl+24) ,0] 
i\=n 

T3=T1-Y0 

FOR 12=1 TO N5+1 
P’ I2IN5+1 THEN 1030 


PLOT [,,.SJS]:OOTO 04 0 
.•PLOT [F1*X0,0,U] ;OOTO 
,0] , [ , ,330] 


l-(A2+20) ,0,U] :OOTO . 
[ 0,-(Bl-31) ,0] :GOTO 


920 P’ 12] N 5+1 THEN 
930 T3=T3+YO 
940 TF A3S(T3)]=inO 
)1 = 10.T;ILN 930; IF A 
950 CONVERT T3 TO T 
960 CONVERT T3 TO T 
973 CONVERT T3 TO T 
930 CONVERT T 3 TO T 
990 CONVERT T3 TO T 
I'lOO IF X[]0 THEN I 
1010 IF T3t]C2 THEN 


1000. THEN 960;IF ABS (T3 )] =>100 , THEN 970;IF AB5(T3 
F A3S(T3) 1=1. THEN 990 


960 
973 
930 
99 0 
1000 
1010 
1020 
1033 
1040 
1030 
lOlw) 
10/0 


ONVERT T J TO T3S , P#//) :GnTO 1000 

OTIVERT T3 TO Hi $, i‘- iHHHI) : GOTO 1000 

ONVERT T3 TO T3$ , • ) ;G0T0 1000 

ONVERT T3 TO T3$ , *^0 : GOTO 1000 

ONVERT T3 TO T3$ , (-/'•////) ;G0T0 1000 

IF X[]0 THEN 1010:PLOT [ ^ ,TJ$] ;GOTO 1030 

IF T3HC2 THEN lu20:PLOT [ 0 , F2*Y0 , U ] : GOTO 1030 

PLOT f-60,F2*Y0,Uj,[,,T3S] 

K = iC+l:NEAT 12 

plot [,,R] 

IF X$=^' '• THEN 1110: PLOT [ 100*Xi , 1 00*Y 1 , U ] , [-A1 , 0 , L' ] 
IF Ll = 2 THEN l070:i'LOT [0 , 50, U] ;G0T0 1080 
PLOT [O.-t.O pv- ) 


T3$ , i-iHHHf) :G0T0 
T3$, (~J/ ////•) ;G0T0 
T3 $,(“.?//• iO : GOTO 
T3$, (-if •if if) ;G0T0 
1010: PLOT tj,TJ$ 
K 1U20:PLOT [0,F 
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1080 IF A2[]0 THEN 1090:HLOT [Al/5 ,0,U] :GOTO 1100 
1090 PLOT [A1+A2/5,0,U] 

1100 PLOT t,,X$] 

1110 IF V$ = ^' " THEN 1180 

1120 PLOT [, ,R] , fl00*Xl,100*Yl,U] , [0,-lil,U] 

1130 IF L2=l THEN llAOiPLOT [90, 0, UJ iGOTO 1150 
1140 PLOT [-90,0,U] 

1150 IF B2[]0 THEN 1160;PLOT [0, Z*ri/ 3, U ] ;GOTO 1170 
1160 PLOT [0,Bi+U2*2/3,U] 

1170 PLOT [0,-20,Sl , [, ,Y$1 , [12, ,Sl , t , ,R] 

1180 RETURN 

1190 DEFFN’ 02(U,V,X4 ,Y4) 

1200 X3=U;Y3=V 

1210 D1=X3-X4 :D2=Y3-Y4 ;X4-X4FD1;Y4=Y4+D2 

1220 IF Ul=2 THEN 1230: PLOT [Fl*Dl , F2*D2 , U ] , [ , , D ] , [ , ,X$ J , [ , ,U] 

:E3=INT(F2*D2) ;E7=INT(F1*D1) :GOTO 1340 
1230 El«F2*Y3-INT(F2frY3) 

1240 E«E+E1+E4 

1250 P3=F2*D2+E:P9=INT(PU) 

1260 E5=F1*X3-INT(F1*X3) 

1270 E6-E6+E5+E8 

1280 S8=F1*D1+E6;S9=INT(S8) 

1290 PLOT [S9,P9,0] 

1300 E3=E3+P9 
1310 i:4»P2*Y3-E3 
1320 E7=*S9+E7 
1330 E8f*Fl*X3-E7 
1340 RETURN 

1350 INPUT "DO YOU NISH TO ADD LA8BLS OR COMMENTS TO PLOT (0=N0, 


1“YES 

1360 

1370 

1380 

1390 

1400 

1410 

THEN 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 


)",G 

IF 

INPUT 
PLOT 
XEYIN 
GOTO 
IF P$ 
1450 
IF P$ 
IF P$ 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
INPUT 
IF G 
END 


0 THEN 1480 

"DESIRED CHARACTER SIZE (NUMBER FROM 1 TO 5)",K 
(K,,C|,[,,S] 

P$, 1410,1420 
1390 

»IIEX(Oil)THEN 1430;TF P$-hEX(02) THEN 1440;IF P$»nEX(03) 
:PLOT [ , ,P$] , [13*K, ,U] :GOTO 1390 
= HEX(00) THEN 1460 : IF PS=liEX(01) THEN 1470; 

=UEX(02) THEN 1370;GOTO 1480 
0,-20*K,U] , [-999,0,1!] ;GOTO 1390 
13*K,0,U j ;GOTO 1390 
-i3*X,0,U3 ;OOTO 1390 
0,20*K,U] :GOTO 1390 
0,-20*R,Ul :GOTO 1390 

"DO YOU NISH TO CONTINUE PLOTTING (0=N0,1*YES) 

1 THEN 180 


",G: 


60 
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RADIATOR PEKFOBMANCE PREDICTION PROGRAM 


File Name "Radiator” 


Abs tract "Radiator" calculates thermal performance for a 

flowing radiator system (Q rejected, T out) given 
environmental and physical system Inputs. 

Results from this program have been used to generate 
a data book of Shuttle radiator performance for 
various environments that are a function of orbit 
parameters (altitude, beta angle, vehicle roll 
angle, etc.). Samples of results presented in this 
data book are included here. (See figure 17) . 

Environmental inputs ) were obtained 

using a computer program TRASYS which uses a 
detailed geometric model of the Shuttle Vehicle 
along with values for the surface absorbtivlcy 
and emissivity. 

A program listing. Table XIV, is enclosed for 
reference. 
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PROGRAM DESCRIPTION 


INPUT DATA DEFINITIOM 


CRT SYMBOL 


DESCRIPTION 


Evaporator H2O Flow 


// of Panels 


Inlet temperature 

Data below is repeated for each panel 
In system 

Panel Type 
Flux 

Shape factor to space 
Flow source 

Last panels in system 


Maximum radiator system heat 
rejection is affected by evapo- 
rator water flow and it must be 
input 

Usually equal to 6 or 8 (base- 
line and space lab missions) 

System inlet temp. °F 


Single (1) or double sided (2) 

Panel absorbed heat (Btu/Hr-Sq-Ft) 
View factor to Space (dimensionless) 
# of panel supplying flow 

#^s of last two panels in system 
(flow from these panels is mixed 
and becomes inlet to evaporator) 


b2 
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^SUMPTIONS; RADIATION FIN ^ = .9 

FLUID TO TUBE AT! = 3,0°F 


ANALYSIS ; GUESS VALUE FOR Tout ^ 

(if = 

y ,CtrX-f)(K,„)’ 

_ 2 T = (t,^-at 

Q (jeut — ^~r+4^liO^ 


U1 = r|rj) 

U2- 


(ficTAn/Co)^ 
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Find F21 enthalpy in (HI) and 
enthalpy out (H2) 


AVG Cp = H2-H1 
O-I 


U3 = U1 + Y/Cp 


If 132 equals U3 within desired tolerance, then model is converged 
and Tout is the correct value, otherwise re-estimate Tout and 
return to Tsink calculation. Continue looping until balance is 
within desired tolerance. 

This procedure is then followed for each panel in the system. 
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Table XIV 


RADIATOR PROGRAM LISTING 


10 DIM 

,F(10) 

20 REM PROGRAM 
30 C2«.016f)E-4 
40 U = 3.2 


E7(10) ,E9(10) ,E3(10) ,A9(10) ,F1C10) ,31(10) ,T1(10) ,01(10) 
"RADIATOR” 


50 Cl»-.1624E-4 

60 C0-.242 

70 C =».2 5 

80 S=n,1713E-8 

90 H=. 00001 ;N =.0000001 

100 SELECT PRINT OO 5 

110 INPUT "EVAPORATOR 1120 PLOW (LB/HR) ",Fl 
120 INPUT "NUMBER OF PANELS", PI 

130 PRINT ; INPUT "RADIATOR INLET TEMP (DEG F)",I:I 6 «I 
140 ..FOR 1 = 1 TO PI 
150 PRINT 

160 PRINT "DATA FOR PANEL , i 
170 PRINT 

180 INPUT "PANEL TYPE (1=SINGLE SIDE, 2=DOUBLE S1DF.)",T9 
3 90 INPUT "FLUX (BTU/IIR-SQ FT)",E7(T) 

200 IF T]1 THEN 20l!lNPUT "FLOW (LB/UR)", F1(I) 

201 Fl(n=Fl(l) 

210 INPUT "FLOW SOURCES (XY , X=SOURCR/*l, Y=SOURCE/^2) " , Sl(l) 

215 F(I)“0;XNPUT "SHAPE FACTOR TO SPACE (DEFAULT=1. 0 ) ",F(I).; 
IF F(I)[]0 THEN 220;F(I)“1.0 

220 IF T9=2 THEN 2 30 :E8 (I) = . 032 t E9 (I ) = . S ; AO ( 1) =166 . 00 ‘GOTO 240 
230 E8(T)=.O44:E9(l)=.841;A9(I)=332.00 
240 NEXT I 

250 INPUT "LAST PANELS IN SYSTEM", L1,L2 

260 Q6=0iSELECT PRINT 005; PRINT HEX(03) ; PRINT " TIN = ";I 6 ;" 

FLOW = ";F1(1)*2 
270 FOR 19=1 TO PI 

280 E=E7(I9) !E1=E3(I9) ;E2=E9(I9) ;R1=A9(I9) ; R2=Fl (19) ; FO-F (19) 

290 S2=TNT(S1(I9) /lO) ;S3»Sl(I9)~S2*in 

300 X,Y,Xl,Yi,X2,X3=0 

310 IF S1=0 THEN 320; GO-fo 330 

320 IF S2t]0 THEN 3 30 ; 1= £6 ; GOTO 3S0 

330 IF S1=0 THEN 340 ;X=F1(S1) *T1 (Sl) *C1 (SI) : X1=F1(S1) *C1(S1) 
340 IF S2=0 THEN 3 50 ; Y=F1 (S2)\ T1 (S2) *C1 ( S 2) : Y1=F1 (S2) *C1 (S 2) 
350 IF lOriBl THEN 360 r X2=W*T* • 25 ; X3=W* • 25 ; GOTO 370 
360 IF 19 [ ] (Bl-1+32) THEN 370 ;X2=W*T*‘ 25 ; X3=WA . 25 
370 I=(X+Y+X2) /(X1+Y1+X.3) 

380 K=20 

390 T5=(E/S/F0) ! .25;0=.2*(T5~46n)+»8*I;SELECT PRINT 005; 

PRINT "RESULTS FOR PANEL NU^fBER ";I9;" 

*00 IF E[]0 THEN 410:E=.001 


ORIGINAIj page is 
OP POOR QUALW 
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Table XIV 


RADIATOR PROGRAM LISTING (CONCLUDED) 


410 T5=(E/S/F0) ! .25 
420 !■ 1=, OOtD^l.O 
430 Y=S*E1*T5 I 3*R1*F0/R2 
440 Il=(I-D+459. 69) /T5 
450 01=(0-D+459. 69) /T5 

460 U1 -.25*L0G(A'JS((I1+1) /(I1-1))) + *5*ARCTAN(I1) 

470 U2 =.25*LOG(AB‘5C(01+l)/(ni-l))) + ‘5*ARCTAN(01) 

4B0 IF ABS (O-I) ] . Onnoi THEN 490:0«I+-001 

490 H-CO*I+C1*I!2/2+C2*II3/3;H1=CO*0+C1*0!2/2+C2*013/3 

500 C=ABS((H1-Ht /(0-D) 

510 U3=U1+Y/C 

520 IF ABS(U2-U3) [=M TURN 660 
530 Y=2 
540 2=0 

550 IF U31U2+N THEN 610 
560 0=0+K 

570 IF YtlO THEN 410 
580 K=K/2 
590 0=0-K 
60n GOTO 410 
610 0=0-K 

620 IF Y[]0 THEN 410 

630 K=K/2 

640 0=0+K 

650 GOTO 410 

660 Ql=(I-0) *C*R2 

670 PRINT "TOUT = ";0 

680 ? IHi iHHHI-lHi iHh /'///»•//// jif//##- •#//# 

690 Q6=06+ni 

700 T1(I9)=0:C1(I9)=C:NEXT 19 

710 04=(P1(L1)*T1(L1)+F1(L2) ^T1(L2)) /(FlCLl)+FlCt2)) 

720 O5=O4-Fl*106O/((Fl(Ll)+Fl(L2))*- 245) 

730 Q7=Q6+F1 ^ilOf.O 

740 PRINT ; PRINTUSING 780,04 

750 PRINTUSING 790, Q6 

760 PRINT ;PRINTUSING 800,05 

770 PRINTUSING 810,07 

780 X RADIATOR OUTLET MIX TEMP « 

790 % RADIATOR TOTAL HEAT REJECTION = 

800 °i EVAPORATOR OUTLET TEMP = NHh iHf 

810 % RADIATOR/EVAPORATOR SYSTEM TOTAL HEAT REJECTION = -{HfiijfiHf- 

820 SELECT PRINT 005 
830 STOP !G0T0 260 
840 END 
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GENERALIZED THERMAL ANALYZER PROGRAM 


File Name "WINDA“ 

Abstract "Winda" calculates steady state or transient temperature 
profiles of constant property structural and/or fluid 
thermal math models. The program is designed for use with 
a WANG 2200 - series mini computer. A sample case is 
shown in figure 18. 

Program Description 

♦ 

This program is modeled after the System Improved Numerical Differ-^ 
encing Analyzer "SINDA" (Reference 1) . Like any thermal analyzer pro- 
gram, the program requires the user to convert his thermal system into a 
lumped parameter RC network. Reference 2 provides a discussion on 
thermal mathematical modeling. 

"HINDA" can be functionally divided into two programs. A thermal net- 
work imp ut/ output and conversion program, and a solution routine pro- 
gram, Therefore, the follw^ing discussion has been divided into two 
parts: I. Thermal Network INPUT and OUTPUT, and II. Thermal Network 

Solution Routine. 


I. Thermal Nefajork Input/Output Program 

This portion of the program allows the user to input his thermal math 
model (TMM) either from a tape or from the console, edit changes 
and/or corrections to the network heat transfer paths (conductors) 
and heat sources (Q’s) and save the corrected version on tape. 

A. Tape Input 

The program will search through a tape containing several 
models (Piles) to pick out the user required model. WANG 
2200 system tape handling rules apply. The models are written 
as NAMED data files. 
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B. Console Input/Edit 

1) Node Data 

If the user’s TMM was loaded from a tape no changes are 
allowed to the node data. If not, the user is required 
to supply the number of diffusion, arithmetic and boundary 
nodes In his problem. Then the program will number his 
nodes sequentially, starting with the diffusion nodes 
first, then the arithmetic and finally the boundary nodes. It 
will then request the required node definition data as 
follows : 

Diffusion Nodes Initial Temp (*^F) , Thermal 

Capacitance (Btu/°F) 

Arithmetic Nodes Initial Temp (*^F) 

Boundary Nodes Constant Temp 

2) Conductor Data 

Upon conflation of node data inputs, the program request 
edits (addition) or original inputs to the conductor 
arrays . 

Two node numbers specifying the hookup and a conductor value 
(Btu or area) are supplied by the user for each conductor input. 

Time-op 

If the conductor is to simulate a mass transfer (fluid', flow) 
conductor; and as such will allow energy transfer only downstream, 
the user is required to input a negative node number on 
the upstream node only. The conductor value represents the 
Cp of the fluids . 

If the conductor is to simulate a radiation hook up, the 
conductor value is input as a negative ^^A(area), If the con- 
ductor is linear, it is input as positive ( K*/yu K.4 
depending on type) 

3) Source Arr^ (Q’s) 

The source array allows the user to input the network’s heat sources 
(limited to diffusion and arithmetic nodes) . The input 
process is additive; the equation being of the form; 

^new ” ^old (^lode I) 4- Input 

Ailwlng for input of several sources at a single node. 
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4) Demand Mode Corrections 

At this time» the program allows the user to modify his 
Input, limited to the following: 

a. Changing temperatures or thermal capacitance 

b. Changing sources 

c. Changing conductor values 

and hookups (not conductor types) 

The node nunlier is the Index in the temperature (T) and 
source (Q) array. The edit number printed by the program 
is the index in thh conductor block arrays (Gl, G2, G and 
Rl, R2y R) . Note that only mass transfer conductors are one 
way and all others need to be edited on two lines. 

5) Model Save Option 

If the user desires to save the TMM to tape drive lOB, he 
has the option oi writing over the old model or specifying 
a new location (the next open file) on the tape. 

Table XV summarizes the input sequence of the thermal network. 

II ♦ Thermal Netoork Solution Routines 


The program has two solution routines available to the user: a 

transient forward difference routine and an iterative steady state 
routine. 

Table XVI contains the control variables required to execute the solu- 
tion routines. The program selects only those variables necessary 
for the execution of the selected solution routine. At the com- 
pletion of the solution routine the program can be restarted at the 
final temperatures (or a new set of initial conditions can be input 
at the CRT console). 

A. Forward Difference Routine 

The forward difference solution technique extrapolates the new 
temperature T (t +At) from the old temperature T(t) , The solu- 
tion is explicit, the only limitation being the length of the 
time step. At each time step the solution routine first calculates 
the new tenperatures for the diffusion nodes. The arithmetic nodes 
are then given a steady state solution based on the "new" diffusion 
temperatures. (See steady state solution discussion). 
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The time step for stability purposes is calculated as follows; 
The program calculates the CSG for each diffusion node where 


CSG (node I) = C(I) 





N = total number of nodes 


G* • 
«-4 


= heat transfer paths to node 
I 


linear or linearized radia- 
tion conductors 


Then the time step is calculated as .95 times the minimum CSG 
in the network divided by CSGFAC (a user option to modify the 
time step) . 


The solution algorithm for diffusion nodes is as follows: 

Tj = -TxW) 

I- 


a/ 


•J 

Z 


+ 2 Cti W-Ti W) ' 


4’ I 


T = temperature 
t “ time 

where t = time step 

Cj- = Thermal mass of node I 

Gj,= linear (conduction, convection or mass transfer) 
conduction from node I to J 

SIGMA = Stephen Baltzman Constant 

Qx = internal heat generation (source) at the I’th node 
Rj j= radiation conductor between node I and J ( .5^A ) . 

Note the linearization criteria used. 


The forward difference solution routine will output (i.e., 
print temperatures) at the user specified output interval 
and upon completion of the problem. 
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steady State Routine 


The steady state solution routine is an iterative solution 
technique which treats all nodes Ci.e. , diffusion and 
arithmetic) identically* The network Is assumed at steady 
state when the temperature change between iteration is less 
than the user required minimum for both the diffusion and 
arithmetic nodes, or the user supplied maximum number of 
iteration is exceeded. The solution algorithm is as follows: 

■►[ (Tj wjij 

i-J: J 

V 1 2 a (n W 0-)) 

where T(L-+I)= DCXCi^O) *• 


L - 6, 1, 2 . . .Iteration count 
D = Damping factor 


and all other variables are defined as in the transient solu- 
tion case. 

The user may select different damping criteria for the diffusion and 
arithmetic node in his network* Radiation dominated problemjs 
require many iterations to reach steady state. It is suggested 
to use a D = .5-. 7 in these cases. 
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References : 

1. Smith, J. P., SINDA Us era Manual, TRW Systems, 14690- 
HOOl-RO-00, April 1971. 

2. Thermal Network Modeling Handbook, TRW Systems, 
1469O-H003-R0-00 , January 1972. 
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TABLE XV 

THERMAL NETWORK INPUT/OUTPUT SEQUENCE 
CRT symbol ; DESGRIPTION/COMMENT 


1. a) Is netirork stored on 
tape drive lOB 


1 = Yes 

2 = No 


b) If the answer to part a) is File # T — — M 

yes» then input model file where model Is stored 

number 


NOTE: If the network is stored on tape the sequence continues 

at step 6. 

2, Input number of diffusion arith- II, 12, 13 
metlc arid boundary node 


3. Input for diffusion nodes 1 to 
I^, initial temp, and thermal 
mass. 

4. Input for arithmetic nodes 1 to 
l2» initial temp. 

5. Input for boundary node 1 to 
I3, constant temp. 

6. Node Data Printout 
desired 

7. Input conductor data 
NA, NB, value 


Input for each node at a time. 

Input for each node at a time. 
Input for each node at a time. 

1 = Yes Prints user node data 

2 « No 

At this point, the user inputs 
each conductor one at a time. 


The following rules apply to the conductor data: 

a) Linear (conduction or convection). NA, NB are positive Node Numbers 
and the conduction value is positive 

b) Mass Transfer - The upstream node NA or NB is flagged with a 
negative node lumlher and the conduction value equals 

c) Radiation Conductor - NA, NB are positive Node nuiihers and the 
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TABLE XV 

THERMAL NETWORK INPUT/OUTPUT SEQUENCE 
(.CONCLUDED) 

CRT SYMBOL DESCRIPTION / COMMENT 


7 . c) continued 

conductor value is input as a negative A. (The negative sign 

only serves as a flag to indicate radiation) . 

d) An image of the user input is produced at the typewriter. 

8. Detailed heat transfer path 1 = Yes 

printout desired 2 = No 

If yes , the printout shows all connections in the network . 

9. Source data input N is the node (arithmetic or 

N - Value diffusion). Note that the 

value is added to the previ- 
ously stored Q rate* 

10. Source data 1 = Yes 

printout desired 2 = No 

11. Malce changes to network from demand node. The user can now 
(using the terminal) make changes to the network. 


12. a) Is the network going to be 
saved on tape drive lOB 


1 ■> Yes 

2 » No 


b) If part A is Yes then input 
model file number 


File # 
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ROUTINE INPUTS 


DESCRIPTION/COMMENT 

1 “ Forward differencing 

2 =■ Steady state 

Problem start time 

Used only with forward diffemce 
routine 

Problem end time of tire forward 
difference solution. Also used 
as the output time of the steady 
state solution 

Stephan Baltzman Constant 
(A default of .1713E-8 Btu 

is obtained by inputing 0.). 

Used with forward difference 
solution to modify time step. 

(A default value of 1. is ub" 
talned by keying 0.) 

Used in the steady state solution 
routine 

Delta ten^erature between steady 
state iterations 

Used in the steady state routine 
Same as arithmetic node 


J 


Same as arithmetic node 
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PAST A - Q7 « 1000 ISE Oft B -200 ^tJi 

Hr ^ Hr 

MINI TUCn'‘AL ANALYSER PROORAM 
LIMITED TO constant PROPERTY NETWORKS 

ft** thermal network inputs *** 


NODE DATA ItLOCK 


NODE 

1 

DIFF 

IMTT 

TEVP 

40,00 

CAP 

1.813000E-02 

\*ODE 

2 

DTFF 

IN'IT 

TE^'P 

40. 

CAP 

l.B15'>00E-O2 

NODE 

3 

DIFF 

TNIT 


40.00 

CAP 

1.81500OE-O2 

NODE 

4 

DIFF 

TSTT 

TEV? 

70.00 

CAP 

l.R15onnc-o2 

NODS 

5 

DIFF 

t::tt 

TEMP 

70.00 

CA? 

1.815O0On-O2 

NODK 

6 

DIFF 

TN'TT 

TEM? 

70,00 

CAP 

l,8150noE-^2. 

ODE 

7 

» IFF 

i::iT 

TEM? 

ion.no 

CAP 

l,OOnonoK+Oi) 

NODE 

P* 

DIFF 

TNIT 

TE*!? 

50,00 

CAP 

l.OOOOOOC+DO 

NODE 

9 

D17"F 

INT7 

TE’^P 

45.00 

CAP 

l.O0^riO0E4 >0 

NODE 

10 

DIFF 

IS'IT 


40.00 

CAP 

] .OOoroOK+00 

NODE 

11 

A^TTII 

INIT 

iEV? 

70, no 



NODE 

i: 

\RTTH 

mx 

T r.^'? 

40.00 



NODE 

n 

wnuN 

CON’ST 

X Ftp 

100,00 



NODE 

14 

nau\’ 

CO:4ST 

TL*<? 

-45P*00 



number I 

OF NODES DIFF 10 

ARTTII 2 

T^OUMDAUY 2 TCZ\% 


COND 

UCTOF 

DATA BLOCK 




TYPE 

SA 

SD 

COSDD fTOR l^ALUE 

*N2V7* 

Lir; 

12 

1 

1.250000nn01 


ITV 

1 

2 

i5,25DOOOE+nC 


us 

2 

3 

6.25noooE+on 

» ww* 

US 

11 

4 

1.2500nOE'^Dl 

Vtr;E"* 

US 

4 

5 

6,25nonOE+03 

vVVEA’* 

LIS 

5 

C 

A. 250000^+00 


US 

P 

12 

l,OOOnnOE+03 

^ r.v:* 

US 

10 

11 

l.oooonoE+03 


US 

-7 


l,OOnonnE+02 


LTS 

-0 

c 

l.nooonoE+02 


• US 


10 

l,nonnooE +02 


LIS 

-in 

7 

i,nnonoon+o2 

; KEW* 

RAD 

1 

14 

G.onnonnE-n3 


RAD 

2 

14 

fi.nonnoon-03 

*XETy* 

HAD 

3 

14 

fi, noOO^'f>E-03 

*NEW* 

LIS 

4 

n 

2,0Of)nooF>00 

5TEV* 

LtS 

5 

10 

Z.OfiO^>r)0E+n0 


LIS 

r, 

n 

2,onooooF+oo 


OaiGMAJJ PAGE IS 
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FIGURE 18 WINDA SAMPLE PROBLEM (CONTINUED) 
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NETWORK 

HEAT 

TRANSFER 

PATHS 



EDIT NO* 

TYPE 

NA(G1/R1) NB(G2 A 2) 

VALUE (C/R) 

G 

1 

LIN 

12 


1 

1.Z5ODOOE+01 

C 

2 

LIN 

1 


12 

1.25OO00E+OJ 

G 

3 

LIN 

1 


2 

6. ZSDOonp.+OO 

G 

A 

LIU 

2 


1 

6. 250000^+00 

0 

5 

LIN 

2 


3 

fi. 25O0O0E+0O 

G 

6 

LIN 

3 


2 

6.2500002+00 

G 

7 

LIU 

11 


4 

i.asoonoF.+nx 

a 

3 

LIU 

4 


11 

1. 2500nnE+01 

G 

9 

LIN 

4 


5 

6.250000E+00 

G 

10 

LIN 

5 


4 

6 . 2 sonnor.+oo 

G 

11 

LIN 

5 


6 

6.2SOnoOE+On 

G 

12 

LIN 

6 


5 

6.2SO0O0E+O0 

G 

13 

LIN 

3 


12 

l,0O0nnoE+03 

G 

LA 

UN 

12 


3 

i.noooooE+03 

G 

15 

LIN 

10 


11 

l.OonooOE+03 

G 

16 

LIN 

n 


10 

l.onooooE+01 

G 

17 

LIM 

8 


7 

i.noooonE+02 

G 

13 

LIN 

9 


3 

l.OOOOOOE+02 

G 

19 

LIN 

10 


9 

l.OOOOOOE+02 

G 

20 

LIN 

7 


10 

1. noo''OOu+02 

G 

21 

LIU 

4 


13 

2. noooOOH+OO 

G 

22 

LTN 

13 


A 

2.000000K+00 

G 

23 . 

LIM 

5 


13 

2 .ofiorjODE+oo 

G 

24 

LIM 

13 


.3 

2.noonnoE+00 

G 

25 

LI.N 

6 


13 

2 .opof'oot:+on 

G 

26 

LIN 

13 


6 

2.00O0O0K+00 

r 

1 

RAD 

1 


14 

6 ,OOOonoE_f)3 

K 

2 

RAD 

14 


1 

6 . f^ODODOR-OI 

R 

3 

RAD 

0 


14 

fi.O0''0OOE-03 

p 

4 

RAD 

14 


o 

C , OOOfi''OE -05 

R 

5 

RAD 

3 


14 

f. . nf>no''O!:-03 

R 

6 

RAD 

14 


3 

fi.OOOOOOE-.OT 

NUMBER OF 

HEAT 

TRANSFER 

PATHS 

IN NETWORK 

32 ( 26 LINEAR 


6 nADIATION) 


SOURCE DATA BLOCK 

*KEIJ* SOURCE 7 VALUE 1 . OOOOOOe+03 
*KRW* SOURCE 9 VALUE -2 . ''OOOOOE+OZ 


NETWORK KET HEATING RATES ARRAY (0) 
NODS NO* NET HEAT RATE 

1 - 3 • O.onotiE+On o.oooou-j-go 

6-10 o.oooOE+no i.nnorfr +03 

11 - 15 o.oonon+00 o.O'ii''r:+on 


o.oooon+oo 
n.noons+oo 
0. oriooE+oo 


O.OO.OOR+OO 

-2.0000E+02 

o.ooooE+on 


O.OOOOE+00 

o.oonoE+oo 

O.OOODE+O 


NETWORK SAVED TO FILE 


SUCCESSFULLY NOTE THAT NETWORK WAS SAVED 


. FIGURE 3 8 WINDA SAMPLE PROBLEM (CONTINUED) 
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*** CONTROL COHSTAMTS I>IPVa:S *** 


03 

o 




t- 

n 


n) 



rr 


O 

O 

Z 

w 

Z 


fORVARD D17FERESCR SOLRTIOS ROTJTIKE SELECTED (CNFRWD) 
INITIAL TIME-TINEO 0 

OUTT»ET INTERVAL- OUTPET 1. O0000000E-P3 
FINAL TINE-TIMEKD 5 . OQQOnOOOE-OS 
RADIATION Sir.MA 1 . 71300nnCE-09 
n?lE STEP STABILITY CRITERI A-CSGFAC 1 
WAX I 'T«M HUMBER OF ITEP.ATIONS-NLOOP 3 

ARITHMETIC NODE RELAXATION CRITERIA-ARLXCA I. OOOOOOOOE-02 
ARITHMETIC NODE DAMPING FACTOR-DAMPA *9 
DIFFUSION NODE RELAXATION CRITER lA-DRLXCA 100000000 
DIFFUSION NODE DAMPING FACTOR-DAMPD 1 


TBANSIESX SOLUTION FOR .005 HRS. 


*** END OF INPUT SEQUENCE - BEGIN EXECUTION PHASE *** 




TIMEN 0.0000 DTIMEU 8 . 30963F--OA CSGMIM 8.7A69SE-04 AT NODE 4 


NODE N’O* 

1 - '5 

40.00 

TEMPERATURE 

40.no 

(DEG 

F) 

40.00 

70.00 

70.00 

6-10 

70.00 

ion. on 


50.00 

45.00 

60,00 

11 - 15 

70.00 

40.00 


100.00 

-459.00 

-460,00 

TIMEN 

0.0010 DTIMEU S.3nQ63E- 

04 CSGMIN 8. 

74693E-04 AT 

NODE 4 

NODE NO* 
1-5 

40.63 

TEMPERATURE 
39. ^^6 

(DEG 

F) 

19,96 

72.60 

73,25 

6-10 

73.25 

97.16 


46,70 

45-22 

66,70 

11 - 15 

66,77 

46,62 


100.00 

- 459.00 

-460-00 


SB 


TIMEN 
NODE NO* 
1-5 
6 - 10 
11 - 15 


0.0020 DTIHEU S.30963E-04 CSGMIN 8. 

TEMPERATURE (DEC F) 

44.42 40.32 39.94 

76.14 95.11 51.57 

64.75 51.43 100.00 


7469SE-04 AT NODE 4 

71.89 75.77 

45.24 €4.66 

-451,00 -460.00 



TIMEN 
NODE NO* 
1-5 
6-10 
11 - 15 


0.0030 DTIMEU 8.309 63E-04 CSGMIN 
TEMPERATURE (DEG F) 
47.81 41.61 40.09 

78.55 93.07 55.74 

62.95 55.65 100.00 


8.74698E-04 AT NODE 4 

71.30 77.16 

A5.73 62.84 

-459.00 -460.00 


TIMEN 
NODE NO* 
1-5 
6-10 
11 - 13 


0.0040 DTIMEU 8.30963F.-04 CSGMIN 8. 

TEMPERATURE (DEC F) , 

50.99 43.21 40.63 

80.37 91.05 59.30 

61.39 59,19 100.00 


7460 SB-04 AT NODE 4 

70.72 73.11 

46.57 fil.27 

-45P.no -469.00 


TIMEN 
NODE NO* 
1-5 
6-10 
:i - 15 


0.0050 DTIMEU 8, 30“63T:-04 CRGMIK S. 

TEMPERATURE (DEC F) 

53.38 44.08 41.53 

81.69 89.03 62.30 

60.03 62.19 100.00 


7460SE-04 AT NODE 4 

70.07 78.72 

47.67 59.95 

-459.90 -46n.00 


CONTROL CONSTANTS INPUTS *** 


g 

M 

Oo 


s 


cs 

> 


cn 

& 

ta 

t-* 

cri 


I 

S 

K 


STEA3Y STATE SOLUTION ROUTINE SELECTED (CIKDSS) 

INITIAL TI>tEfTI?IEO 1 

OUTPUT INTERVAL-OUTPUT 0 

FINAL TIJTE-TIMEMB 100 

RADIATION SiGtfA 1 . 7130000 OE-09 

TINE STEP STABILITY CRITERIA-CSGFAC 1 

KAXIKUH NUMBER OF ITERATIONS-NLOOP 1000 

ARI'^UMETIC NODE RELAXATION CRITERIA-ARLXCA I. OOOOOOOOE-03 
ARITUNCTIC NODE DAMPIXG FA'’TOR-DA‘TPA -7 

DIPPCSION NODE RELAXATION CRITERIA-DRLXCA 1.0O0QOOOOE-O3 
DIFFUSION NODE DAMPING FACTOR-DAV.PD -7 


STEADY STATE SOLUTION 


*** END OF INPUT SEQUENCE - BEGIN EXECUTION PHASE *** 


TIMER 
NODE NO* 

I 5 
6-10 
II - 15 


1,0000 DTIMEU O.OOOOOE+00 CSGNIN O.OOOOOE+OO AT NODE 0 
TEMPERATURE (DEC F} 


53.83 

A4.9S 

A1.53 

70.07 

73.72 

31.69 

89. OS 

62.30 

A7.C7 

59.95 

60. OS . 

62-19 

ino.oo 

-459.00 

-460.00 



STEADY STATE lERATIONS PERFORMED 1000 NLOOP 1000 


TI>?EN 100.0000 DTIMEU O-OOCOOE+00 CSCMIN O.OOOOOE+00 AT 
BODE HO* TEMPERATURE (DEG F) 

1-5 215.31 214.13 213.70 130.62 

6 - 10 13S.93 213.52 216.32 214.17 

11 - 15 200.28 216.26 100.00 -459.00 


NODE 0 


151.46 

20S.67 

-460.00 
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KINI THERKAX ANALYZER PROGRAM 
LIMITED TO CONSTANT PROPERTY NETUORKS 

*** THERMAL NETUORR INPUTS *** 


Qj « 500 
=,-400 


Btu 

Hr 

Btu 

Hr 


P° 


C/i 

►id 

I 

P3 

n-* 


O 

O 




rritJi TiiEr.MAL asalyzeh prog?,am 

LIT'ITEB TO COGSTAlvt PSOPEnTY SETT.'OPKS 
*** THERMAL HETHORI-C IHPTJTS *** 

MEYMORK FROM FILE 1 MAS SUCCESSFULLY LOADED -^a— NOTE THE SETOORK MAS LOADED FROM TAPE 
NODE DATA ELOCIC 

rUMEER OF NODES DIFF 10 ARITH 2 BOUNDARY 2 TOTAL 14 


CONDUCTOR DATA BLOCK 

TYPE MA NS CONDUCTOR VALUE 

NUMBER OF HEAT TRANSFER PATRS IN NETtrOR:: 32 ( 26 LINEAR, 6 RADIATION) 


SOURCE DATA BLOCK 

*NSM* SOURCE 9 VALUE -2.00000DE+n2 
*NEM* SOURCE 7 VALUE -5.O00000E+02 

4 

^ CHANGES IN Q 


NETNORK NET HEATING RATES ARRAY (Q) 

node no* net heat rate 

1 - 5 O.OnOOE+00 O.OPOOE+00 

6-10 O.OOOOE+00 5.0noOE+02 

11-15 O.OOOOE+QO O.ODOOE4-00 

O.OOOOE+OO 

o.ooooE+on 

O.OOOOE+OO 

O.OOOOE+OO 

-4.0000E+02 

O.COOOE+00 

O.OOQOH-^QC 



*•** CONTROL CONSTANTS INPUTS *** 



FORMARD DIFFERENCE SOLUTION ROUTINE SELECTED (CMFRMD) 
INITIAL TIME-TIMEO 0 

OUTPUT INTERVAL-OUTPUT 1. OOOOOOOOE-03 
FINAL TIME-TINEND -5. OOOOGOOOE-03 
RADIATION SIGMA' 1. 713000nPE-09 
TIME STEP STABILITY CRITERTA-CSCFAC 1 
maximum number of ITEP.ATIONS-NLOOP 3 

ARITHMEIIC NODE RELA>D\TION CRTTERTA-ARLSCA 1 . OOOOOOOOE-02 
ARITHMETIC NODE DAMPING FACTOR-DAMFA ♦? 

DIFFUSION NODE RELANATTflN CRTTERTA-DDLYCA lOOOOOOOO 
DIFFUSION NODE DAMPING FACTOr-nA-'P” 1 


TRANSIENT SOLUTION FOR .005 HRS. 


*** END OF INPUT SEOUENCE - BEGIN IMMTCUTTOM PIIASF. 


2 

06. 


F3 


»X3 

s 

r* 

r3 


00 





S5 


CJ 


o 



TIMHN 

O/QOOO BTINEU 

8.30963E-04 

CSGMIS 3.7469FE-n4 AT 

NODE 4 

i;o^s NO* 

TEMPERATURE {DEG F3 


i - 5 

40*00 

40*00 

40.00 70.00 

70.00 

G - 10 

70.00 

ion. no 

50.00 45.00 

60.00 

11 - 15 

70. no 

40.00 

100.00 -459.00 

-460.00 

TINEN 

0.0010 DTIMEU 

S.3n963U-04 

CSGMIM 3.7469r.E-04 AT 

NODE 4 

NOOi: NO* 

TE?:PEPArURE (DEC n 


1-5 

40.63 

3^.96 

39.95 72.60 

73.25 

G - 10 

73.25 

9^.56 

46.69 45.02 

66.70 

11 - 15 

66.77 

45,62 

100.00 -459.00 

-460.00 

TirtEN 

0.0020 DTIMEU 

n.30963n-04 

CSGMir; S.74690E-04 AT 

NODE 4 

NODE NO* 

TEMPERATURE (DEC F) 


1-5 

44.41 

40.32 

39.94 71.53 

75.77 

5-10 

76,14 

94.17 

51.51 44.56 

64.63 

11 - 15 

64.72 

51.42 

inO.OO -459.00 

-460,00 

TIMEW 

0.0030 DTIMF.U 

S.3''96 3F.-0/i 

CSGMIM 0. 746P.0E-0A AT 

NODE 4 

NODE no* 

TEMP.ERATITRE (DEG F) 


1-5 

47.77 

41.61 

40.09 71.36 

77.16 

6 - 10 

7S,S5 

91.71 

•^n.rjo 43.18 

r*2. 73 

11 - 15 

62,09 

55.49 

inn, on -459. no 

-Ar.o.nn 

TIMBN 

0,0040 DTIMEU 

3.30963E-04 

CSCniN 8.74698E-04 AT 

NODE 4 

NODE NO* 

TEMPERATURE (DEG F) 


1-5 

50.89 

43.20 

40.63 70.63 

7S.10 

6-10 

R0.36 

89.34 

59.02 45.36 

61.16 

11 - 15 

61.28 

50.92 

100.00 -459.no 

-460.00 

tlNEN 

0.0050 DTIMEU 

8.30963^-0/1 

CSGMI!.’. 3.7469aE-04 AT 

NODE 4 

NODE no* 

TEMPERATURE (DEG F) 


1- 5 

53.69 

44,94 

41.52 70.00 

78.70 

6-10 

81.69 

87.04 

61,88 46.81 

59.78 

11 - 15 

59.91 

61,7 

inn.n^ -459. no 

-440.90 


*** CONTROL C0SSTATJ7S INPUTS 
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CO 
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STEAOY STATS SOLUTION ROUTINE SELECTED (CINOSS) 

INITIAL TINE-TIMEO 1 

OUTPUT INTERVAL-OUTPUT 0 

FINAL TI!IE-TIMEND 100 

RAOIATIOS- SlG’IA 1. 71300000E-09 

THIS STEP STADILITT CRITERIA-CSCFAC 1 

tIAXIT'UM NUMBER OF ITERATICNS-HLOOP 1000 

ARITHMETIC NODE RELAXATION CP.ITERIA-ARLXCA 1, OOOOOOOOE-03 
ARITHMETIC KOBE BA'-IPIMO FACT0R-DA’'PA *7 

DIPFUSIOK NODE RELAXATION CRTTERIA-DRLT.CA l.OOCOCOOOE-OS 
DIFFUSION NODS DAMPING FACT0R-DAN7D *7 


STEADY STATE SOLUTION 


**ft END OF INPUT SEQUENCE - BEGIN EXECUTION PHASE ^ 


TiNEN 1,0000 DTirrsu o.onnooE+oo cso'ilN n.onoonR+00 at node o 

NODE NO* TEMPERATURE (DER F) 


1 - 

5 

53.69 


41,52 

70.00 

7". 70 

G - 

10 

ni,69 


61.93 

46.51 

59.70 

11 - 

15 

59.91 

61.73 

100.00 

-459.00 

-460,00 

STEADY 

STATE 

lERATlONS PERFORMED 1000 

N’LOOT 1000 



time:; 

100* 

0000 DTIKEU 

O.OOOOOE+OO 

CSGMIK O.OOOOOE+GO AT 

NODE 0 

NODE no* 


IPERATURE (DER ?) 



1 

5 

99.86 

99.43 

05.23 

56.03 

57,94 

6 - 

10 

93.42 

100,73 

100,23 

96,19 

95.81 

11 - 

IS 

95.32’ 

100.21 

100,00 

-450,00 

-460.00 
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Table XVII 
"WINDA" LISTING 


10 HEM MINI THERMAL ANALYZER PROGRAM "WINDA" 

20 DI!I T(40),T1(40) ,C(40) ,Q(40) , G1 (250) , G2 (2 50) , G (2 50) , U1 (2 50) , R 
2(250) , R (250) ,X(40),Y (40) : 18=40 jGSjRS-ZSO 

30 SELECT PRINT 211 ( 95) : PRINT " TIINI THERMAL ANALYZER PROGR 

AM":PRINT " LI?'ITED TO CONSTANT PROPERTY NETWORKS PRINT :PRINT 
"-.ViVA thermal NETWORK INPUTS ***'». print 

40 S5=0!Sfi 'IxINPUT "IS NETWORK STORED ON TAPE DRIVE lOE (1=YES,0 
=N0)",S5:IF S5=0 THEN 80 

50 INPUT "NETWORK FILE NUMRER" , S4 : SELECT TAPE lOBtREWIND : IF S6= 

1 THEN 60: SKIP (S6-1) F 

60 DATA LOAD "MODEL":DATA LOAD II , 12 , I 3 , 19 , G9 , R9 ,T ( ) , C ( ) ( ) , Gl ( 
).G2(),G(),R1(),R2(),R();IF END THEN 70 

70 SELECT TAPE lOArPRINT " NETWORK FROM FILE ";S6;" WAS SUCCESS 
FULLY LOADED" :PRINT 

80 PRINT " NODE DATA BLOCK": IF S5=l THEN 140: INPUT "NUMBER OF D 
IFFUSION, ARITHMETIC, AND BOUNDARY NODES" , 1 1 , 12 , 1 3 

90 19=11+12+13: IF I9t=l8 THEN 100:PRINT "MAXIMUM NODE CAPABILITY 
";I8;" EXCEEDED, WILL TERT^INATE" : GOTO 13 20 
100 SELECT PRINT 005: IF II ]0 THEN 110;PRINT "WARNING, THIS NETWO 
RK DOES NOT HAVE ANY DIFFUSION NODES": GOTO 120 

110 FOR 1=1 TO IltPRINT "DIFFUSION NODE ";I:INPUT "INITIAL TEMP, 
CAPACITANCE", T(I) ,C(I) :NEXT I 

120 IF 12 = 0 THEN X30:FOR I=(I1+1) TO (11+12) : SELECT PRINT 005;PR i 
INT "ARITHTfETIC NODE ";I;INPUT "INITIAL TEMP",T(I) ;NEXT I 
130 IF 13=0 THEN 140:FOR I=(ll+I2+1) TO I9:SELECT PRINT 005:PRIN 
T "BOUNDARY NODE ";I:INPUT "CONSTANT TEMP" ,T ( I) : NEXT I 
140 SELECT PRINT 211 (95 ): G0=0 : INPUT "DETAILED NODE DATA PRINTOUT 
DESIRED (1=YES,0=NO)",GO:IF G0=0 THEN 200;IF 11=0 THEN 180:FOR 
1=1 TO IltPRINTUSING 150 , 1 ,T(I) ,C(I) :NEXT I 
150 ?^NODE /'/i DIFF INIT TEMP CAP -ih iHHHHHUl I \ 

160 %NODE ARITH INIT TEMP • //// 

170 ZNODE BOUN CONST TEMP * // // 

180 IF 12=0 THEN 190:FOR I=(I1+1) TO ( 11+12) :PRINTUSING 160, I, T( 

I ) 5 NEXT I 

190 IF 13=0 then 200:FOR I=(I1+I2+1) TO 19 :PRINTUSING 17n,I,T(I) 
:NEXT I 

200 PRINT "NU’fBER OF NODES DIFF II; "ARITH ";I2;" BOUNDARY ";I3 
TOTAL ";I9 

210 PRINT ;PRINT " CONDUCTOR DATA BLOCK" ;PRINTUSING 220 

2 20 55 TYPE NA NB CONDUCTOR VALUE 

230 IF (R9+2)]R8 THEN 360:IF (G9+2)]G8 THEN 360;I=0:J=0:GO=0:INP 
UT "CONDUCTOR DATA -NA,NB,GV- TO TERMINATE INPUT ENTER A ZERO NO 
DE PAIR", I, J, GO 

240 ir 1=0 THEN 370:IF J=0 THEN 370.IF Hl9 THEN 330:IF J]I9 THE 
N 330:IF ABS (1)=ABS(J) THEN 340:IF G0[0 THEN 270 
’•0 ir I[0 THEN 260:G9=G9+1 :G1(G9)=I:G2(G9)=ABS(J) :G(«9)=G0 
260 ir J[0 THEN 290; G9=G9+1 :r,l (G9) = J : G2 { G9) =ABS ( I ) :G (G9) =G0 ; GOTO 
2*^0 
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Table XVII 


"WINDA" LISTING (continued) 

270 IF I[0 THEN 330: IF J[0 THEN 350 

280 R9 = R9+1:R1(R9) = I:R2(R9)=J:R(R9)=A11S (GO) :R9^R9+1:R1 (R9)=J :R2( 

R9)=I:R(R9)=ABS(G0) iOOTO 300 

290 PRINTUSING 310 , I , J , GO : GOTO 230 

300 PRINTUSING 3 20 , I , J , ABS ( GO ) : GOTO 230 

310 7, *NEU * LIN - « // - # /,* - if I) iHHil III 

320 ?:*NEW* RAD - ih II iHHHm I I 

330 SELECT PRINT 005:PRIMT "NODE NUMBER NOT INPUT .CONDUCTOR IGN 

0RED":3ELECT PRINT 211(95) :GOTO >.30 

340 SELECT PRINT 005:PRINT "NA=M’., CONDUCTOR IGNORED" tSELECT PR 
INT 211(95) :GOTO 230 

350 SELECT PRINT 005;PRINT "RADIATION CONDUCTORS CAN NOT BE ONE 
WAY CONNECTIONS, CONDUCTOR TG.NORl'.D" .‘SELECT PRINT 211(93) .‘GOTO 2 
30 

3f0 SELECT PRINT 005: PRINT "NUMBER OF LINEAR OR RADTATTON HEAT T 
RAMSFEB PATHS EXCEED PROGRAM’ LirtlTS ("jGN;RS;"), WILL TERMINATE" 
;GOTO 1320 

370 G0-=0:INPUT "DETAILED NFT'JOPK PRINTOUT DESIRED ( 1 = YES , ” = NO) " , 
GO; IF 00=0 THEN 440 

3UO PRINT : PRINT " UFTWORF. 1I::AT TRANSFER PATHS" ; PRINTl'S PIG 
390 XEDIT NO* TYPE NA(G1/R1) Nn(G2/R2) VALUE(G/R) 

400 %G IHUr LIN iip lli^ -!^»IHHHHHillll 

410 T: R 4‘ ii /' rad II II l‘ i‘ - * II P I> II iil‘l II I 

420 IF G9 = 0 THEN 43G;FnR 1 = 1 TO GO : PP.INTUSING 4 f'O , I , G1 ( I ) , G2 (I) , 
G(I) .‘NEXT I 

430 IF R9 = 0 THEN 440:FOR 1 = 1 TO R9 i PRINTUS IMG 4 1 0 , l , R1 ( I) , R2 ( I ) , 
n ( I ) I XT I 

440 PRINT "MUMRF:R OF HEAT TRANSFER PATHS IN NETWORK " ;R9+G9 ; " (" 
;G9;" LINEAR, ";R9;" RADIATION)" 

450 PRINT :PRT?1T " SOURCE DATA BLOCK" 

4 60 1 = 0: INPUT "IIEATING/COOLIMG PATES-NODE , QRATH-TO TERM.IMATE IN 
PUT A ZERO NODE ",1,00 

470 IF 1 = 0 THEM 510:IF lHll+12) THEN 4 00 ; Q ( i ) ( i)+Q0 : GOTO 490 

480 SELECT PRINT 005:PRIMT "NODE NUMBER NOT RECOGNIZED .SOURCE I 
GNORF.D":SELECT PRINT 2 11 ( 9 .3 ): GOTO 460 

4 90 PRINTl'SING 300 , 1 . 00: GOTO 4 60 

500 source II (i ' VALUE “i‘ • IHIIilllHI I II I i 

510 G0=0: INPUT "DETAILED NET HEATING RATE PRINTOUT DESIRED (1=YE 
S,0=N0)" ,G0; IF GO=0 THEN 560:REM END OF 0 INPUTS 

520 PRINT ;PRIKT " NETWORK NET HEATING RATES ARRAY (Q)":PRINTUS 
ING 530 

5 30 7. NODE NO* NET HEAT RATE 

540 Z III! III! -l‘^IIIHIIIllll ^^l•l|lHHIllll -Ihililllllllll ^'**«/f 
(MM ! ! ! 

550 FOR 1=1 TO (11+12) STEP S : Nl= I : N2=T+4 ; Jl=Q ( I ) : J 2=Q ( I+l) : J3=0 
(1+2) :J4=Q(I+3) IJ 5=0 (1+4) : PRINTUSING 540.Nl.N2 , J1 , J2 , J3. J4 .J5:NE 
XT I . 

560 STOP "MAKE C’lANGES TO THIS NETWORK FROM DEMAND MODE, TO TERM 
I MATE PRES , CONTTNUr." 

5.7''' ':3 = 0:S6^1 ; INPUT "DO YOU WISH TO SAVE THIS NETWORK ON TAPE 10 
B ' r = VES . 0 = Nn) " , m 
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Table XVII 


"WIKDA" LISTING (continued) 


5S0 IF S5°0 TUEN 610: INPUT '‘FILE NUMBER NHERE NETWORK IS TO BE S 
AVED",S6:SELECT TAPE 10B:REWIND :IF S6=l THEN 590:SKIP (S6-1)F 
590 DATA SAVE OPEN "MODRL":DATA SAVE II , 12 , 13 , 19, r,9 ,R9 ,T() ,C() ,Q 
() ,rxl(),G2(),GO,Pa(),R2(),R():DATA SAVE END 

600 SELECT TAPE lOA; PRINT : PRINT " NETWORK SAVED TO FILE ";S6;" 
SUCCESSFULLY "tPRINT 

610 FOR 1=1 TO I9:T(I)=T(I)+460:T1(I)=T(I) :NEXT I 

620 PRINT ; PRINT ; PRINT "*** CONTROL CONSTANTS INPUTS ***"; PRINT 


630 S=0:INPUT "TYPE OF SOLUTION DESIRED, 1=F0RWARD DIFFERENCE(CNF 

RWD) / 2=STEADY STATE(CINDSS) " , S 

640 IF S»i THEN 650;IF S =2 THEN 650:GOTO 630 

650 01 = 0: INPUT "INITIAL TIlfE-TIMEO" ,01 

660 02=0:INPUT "OUTPUT INTERVAL-OUTPUT" ,02 : IF S=1 THEN 670:02=0 
670 03=01+02; INPUT "FINAL TIME-TINEND" , 03 

630 R5=0: INPUT "RADIATION SIGMA", R5: IF R5]0 THEN 690 ;R5=. 1713E-B 


690 INPUT "TIME STEP STABILITY CRITERIA-CSGFAC" , Fl : IF FllO THEN 
700;F1 = 1 „ 

700 INPUT "ifAXI^TUM NUMBER OF ITERATIONS-NLOOP" , Ll ; IF Ll]0 THEN 7 


10:L1=1 

710 INPUT "ARITHMETIC NODE RELAXATION CRITERI A-ARLXCA" , A :IF A]0 
THEN 720;A=10!8 

720 INPUT "ARITHMETIC MODE DAMPING FACTOR-DAMP A" , AO ; IF A0]0 THEN 


730:A0=1 

730 INPUT "DIFFUSION NODE RELAXATION CRITERI A-DRLXCA" , D :IF D]0 
THEN 740;D=in»8 

740 INPUT "DIFFUSION NODE DAMPING FACTOR-DAMPD" , DO ; IF D0]0 THEN 
750:DO=1 

750 IF S=2 THEN 760:PP.IKT "FORWARD DIFFERENCE SOLUTION ROUTINE S 
ELECTED (GNFRWD) ";GOTO 770 

760 PRINT "STEADY STATE SOLUTION ROUTINE SELECTED (CINDSS)" 

770 PRINT "INITIAL TirfE-TI?!EO ";01 
780 PRINT "OUTPUT INTERVAL-OUTPUT ";02 
790 PRINT "FINAL TIME-TIMEND ";03 
300 PRINT "RADIATION SIGMA" ;R5 

810 PRINT "TIME STEP STABILITY CRITERIA-CSGFAC ";Fl 

820 PriNT "MAXI??UM NUMBER OF ITERATIONS-NLOOP ";L1 

830 PRINT "ARITHMETIC NODE RELAXATION CRITERIA- ARLXCA ";A 

840 PRINT "ARITHMETIC NODE DAMPING PACTOR-DAMPA ";A0 

850 PRINT "DIFFUSION NODE RELAXATION CRITERIA-DRLXCA "jD 

360 PRINT "DIFFUSION NODE DAMPING FACTOR-DAMPD " ; DO 

870 PRINT :PRINT "*** END OF INPUT SEQUENCE - BEGIN EXECUTION PH 

ASE ***" {PRINT 

880 SELECT PRINT 00ri:PRINT HEX ( 03) ; PRINT :PRTNT :PRINT :PRINT :P 
RINT : PRINT "MINT STNDA IS NOW IN ITS EXECUTION PHASE, PLEASE BE 
VERY PATIENT" :SELECT PRINT 211(95) 

S«»n 09 = 01 ; 04=01 :F3,F?,F0=0 ; REM CALCULATE CSGMTN 

‘>00 U- S = ? THEN ‘>70:TE 00 = 01 THEN 910:IF R9 = 0 THEN 970 

‘MO FOR T=l TO II:X(n=0:IK 09 = 0 THEN 930: FOR 3 = 1 TO G9:X(01(J)) 

= x(in (.micc.n .i 
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Table XVII 

"WINDA" LISTING Ccontinued) 


920 IF R9=0 THEN 93njPOR J=1 TO R9 :P1=T1 (R1 (J) ) :P2=Tl(R2(J) ) ! G0= 

R5*R(J)*(P1+P2)*(P1*P1+P2*P2) :X(R1(J))=X(R1(J) )+G0;NEXT J 

930 X(I)=C(I) /X(T) :IF I]1 THEN 940:F2=X(1) : F9=l 

940 IF X(I)]F2 THEN 950 :F2=X(1) ; F9=I 

950 NEXT I;F3=F2 ;F2=.95*F2/F1 

960 IF F2]0 THEN 970; PRINT : PRINT :PRINT "TIME STEP LESS THAN 0 

R EQUAL TO ZERO, WILL TERMINATE” ; GOSUB 1250: GOTO 1320 

970 IF 09[]04 THEN 990:OOSUB 1 250 :04=09+02 : IF 04 [03 THEN 980:04!= 

03 

9?0 IF S°2 THEM 1060:IF 09“03 THEN 1240 
990 P-F2:IF (09+F2)l04 THEN 10n0:F=04-09 

1000 09=09+F: 08=09- (• 5*F) : REV 08=TINEM VARBLl OPS FOLLOW THIS 
LINE 

1010 REM FORWARD DIFFERENCE DIFFUSION NODES 

1020 FOR 1=1 TO I1;X(I)=0. ;IF G9=0 THEN 1040:FOR J=1 TO G9 

1030 P1=G1(J) :P2=G2(J) :X(P1) =X(P1)+(G(J) *(T1 (P2) -T1 (Pi) ) ) ;NEXT J 

1040 IF R9=0 THEN 1050:FOR J=1 TO R9 ;P1=T1 (R1 (J) ) :P2=T1 (R2 (J) ) :G 
0=R5*R(J)*(P1+P2)*(P1*P1+P2*P2) :X(R1(J) ) =X(R1 (J) )+(nn* (P2-P1) ) :N 
EXT J 

1050 X(I)=X(I)+Q(I);T(l)=Tl(I)+(F*X(I)/C(I)) ;NEXT I;FOR 1=1 TO I 
1;T1(I)=T(I) :NEXT I 

1060 L=0:RE?‘ STEADY STATE ITERATIONS 

1070 L2=+liIF (L+1)]L1 THEN 1220:L=L+1 

1030 IF S=1 THEN 1150 :RE!^ DIFFUSION NODES 

1090 IF 11=0 THEN 1150;F0R 1=1 TO II : X ( I ) =0 : Y ( I) =0 : IF G9=0 THEN 
lllOtFOR J=1 TO G9 

1100 P1=G1(J) :P2=G2(J) :X(P1)=X(P1)+(T1(P2) *G(J) ) ;Y (P1)=Y (Pl)+G(J 
) ; NEXT J 

lii’o IF R9 = 0 THEN 1120;FOR J = 1 TO R9 ; P1=T1 (R1 ( J) ) ; P2 = T1 (R2 ( J) ) : G 
0=R5*R(J)*(P1+P2)*(P1*P1+P2*P2) :X(R1(J) )=X(R1(J))+(G0*P2) :Y(R1(J 
))=Y(R1(J))+C0:NEXT J 

1120 T(I)=(X(I)+Q(I)) /Y(I) :T(I)=D0*T(I)+((1-Dn) ATl(I) ) 

1130 IF ABS(T(I)-T1(I) ) [D THEN 1140;L2=-1 
1140 NEXT I;FOR 1=1 TO II :T1 ( T) =T( I) :NEXT I 
1150 IF 12 [=0 THEN 1220 :REV ARITHMETIC NODES 

1160 FOR I=(I1+1) TO (11+12) :X(I)=0:Y(I)=0;IF G9=0 THEN 1180;FOR 
J=1 TO G9 

1170 PlaGl(J) :P2=G2(J) :X(P1)=X(P1)+(T1(P2)*G(J>) :Y(P1)=Y(P1)+G(J 
) : NEXT J 

liso' IF R9=0 THEN llQOjFOR J = 1 TO R9 ; P1=T1 (R1 ( J) ) : P2=Tl (R2 ( J) ) ! G 
0»R5*R(J) *(P1+P2) *(P1*P1+P2*P2) ;X(R1(J) )=X(R1(J) )+(G0*P2) :Y(R1(J 
))=Y(R1(J))+G0:NEXT J 

1190 T(I)=(X(I)+Q(I))/Y(I) :T(I)=A0*T(I)+((1-A0)*T1(I)) 

1200 IF ABS(T(I)-T1(D) [A THEN 1210:L2=-1 
1210 NEXT I:FOR I=(T1+1) TO ( 11+12 ) :T1 (I) =T (I) : NEXT I 
1220 IF L2]0 THEN 1230:G0T0 1070;REM END OF ITERATION/TIME STEP 
1230 IF S=1 THEN 900:PRINT : PRINT ;PRlNT "STEADY STATE lERATIONS 
PERFORMED ”;L;” MLOOP ” ;L1 : 09=03 ;GOSUB 1250 
1240 N0=0; INPUT "DO YOU WISH TO CONTINUE THE PROBLEM WITH THIS N 
ETWORH AT THE FINAL TE‘’PERATURES (1=YES , 0=NO) " , NO : IF N0=1 THEN fi 
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Table XVII 

"WINDA" LISTIHG CCONCI^UDED) 


20: SELECT PRINT 005:END 
12 50 RE’T OUTPUT SUBROUTINE 
1260 SELECT PRINT 211(95) 

127fi PRINT rPRINT tPRINTUSINO 1 230,09 , F2 , P3 , F9 : PFINTUSING 1290 
1230 fTIUEM DTX’^EU -ii * I I I I CSGMTN “P • \ [ \ 

! AT NODE PP 

129 0 r^NODE NO* TEMPERATURE (DEG F) 

1300 for 1=1 TO 19 STEP 5 : Nl= I : N2=I+4 : J 1=T ( I) -6 60 ; J2«T ( I+l) -4 60 t 
J3=T(I+2)-A60: J4=T(I+3)-A60: J5=T(T+4)-460:PRTNTUSIMC 1310,N1,N2, 
J1,J2,J3, J4 ,J5:NE2T T: RETURN 

1310 "' pj; - pp ^ptppp.pp .ppppp,pp ^apppp*pp ^ppppp, 

pp ^fippiip.pp 

1320 REV error TERMINATION OUTPUT 
1330 SELECT PRINT 003 
1340 END 
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APPENDIX A 

The row test data was modified and corrected to produce the ad- 
justed test data shown in Table A-1. The raw data was read and 
hand recorded from real time recording instruments during the test. 
Instrumentation and human factors combined to produce some read- 
ings that were in error, fortunately computer generated plots of 
the data were available and were used to eliminate the errors 
involved. The computer plots gave a better picture of when a 
particular test point had actually reached steady state conditions 
indicating the time when meaningful data could be taken. Conputer 
generated plots also resolved an anomaly in the data involving 
the measured air outlet dew point, which was consistently higher 
than the measured outlet dry bulb temperatures; a condition which 
was impossible. If this condition did exist, then the water vapor 
would instantly condense and it would effectively be raining in- 
side tlie ducting at the HK outlet. This was not observed to 
happen, therefore, there had to be a error somewhere. Checking 
the computer plots indicated that the outlet dew point reading was 
unstable and Inaccurate and the air outlet dew point was then 
assumed to be equal to the dry bulb tenperature for further 
analysis. 
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TADLB A-1 


RBDUCED I’RST IffiSUliTS 


All! £ijw: coNUiTTO*::: 


l'\W 

poiirr (CFH) 


I n'J 


co oiii>i!T co'.nii’To:.? 
T Hfl ^ 1“ SKC 



'jvA'. rr) , Fjovj •sr?) tw,-; 

OUT Ilf OUT (13/KR) in OUT (LB/KH) 


4£J,g 1(8.9 

1(1(.65 52.0 
1)5,6 52-5 
I49.3 5E.0 
1 ( 5 . 0 l» 61 

47.15 60.0 

55.6 62.0 

50. 15 52.0 

50.7 53.0 
50.S 52.5 

>*5.V5 53.0 
•(5.55 53.0 
•(4.5't 

• 15.55 53.5 
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APPENDIX B 

DATA EEDUCTION TECHNIQUE 

B.l General condensing HX solution and HA data provided 
by HSD 

B.2 Listing of computer program used to reduce test data 
B,3 Results of applying data reduction program to test points 
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Preaentt-d here is a description of thB analytical method used to 
determine froift the adjusted test data values for the hot side and 
cold side film coefficients for the BSECS condensing heat exciianser , 

Analysis hy Hamilton Standard produced two curvor. 
predicting values for both hot and cold side film coefficients 
as a function of flov? rates as shown in Figures B? and B3. Results 
of the procedure presented below were used to verify these predictions 
The liX is imagined to be made up of two portions one wet and one dry. 
The v?et portion is where all the condensing is assumed to occur and 
the dry portion is assumed to have no condensing. As air 
passes thru the IK the wall temperature di-ops until it equals the 
inlet dew point temperature (dry portion) and as the wall temperature 
continues to drop water condenses out of the air stream (wet portion) 
as shown in Figui’e Bl, The point where the wall temperature 
reaches the inlet aii* dew point is called, the heat exchanger Pinch 
Point and is the dividing line betv?een wet and dry portions. The 
analysis starts by assuming that one of the predicted film coefficient 
surves is correct and proceeds to calculate the other curve. 
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Test results for a particular test point for air and cc»lant inlet and 
outlet temperatures and flow rates are combined with a value for film 
coefficient from curve B2 or B3 to find the air and coolant temps 

at the pinch point and the overall heat transfer coefficient for the 
dry portion of the heat exchanger. 


The calculated condensate flow rate is then combined \/ith the test 
data and the assumed film coefficient to find the overall heat 
transfer coefficient for the wet side only. Those two coefficients 
are combined to form an overall heat transfer coefficient and then the 
hot side film coefficient is broken out of this overall number. 

This calculated value of hot side film coefficient is compared with the 
original assumption. If the value is the same then it is the final 
ansvjerj otherviise, this nev value is used as a new guess and the 
procedure is repeated until there is no change. 


A similar procedure is followed for all the test points in order to 
generate a curve of air side film coefficient vs, flow rate. 

This calculated curve is then assumed, correct and the procedure is 
repeated to generate a curve for coolant side film coefficient vs. 
flow,’ This process of assuming one curve correct and calculating the 
other continues until there was no change in the curve from one 
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iteration to the next. The resulting two curves are then the ones 
to be used in the heat exchanger performance prediction procedure, 
(see Appendix C) 
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FIGURE B-2 350-MHEAT EXCHANGER PREDICTED COOLANT SIDE FILM 
COEFFICIENT VS FLCK-/ 
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FIGim B-3 350-M CONDENSING HEAT EXCHANGER AIR SIDE FILM 

COEFFICIENT VS AIR ROW 
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APPENDIX B. 2 

LISTING OF COMPUTER PROGRAM USED IN DATA REDUCTION 




UNtm) 

TCCtmOiX>GM£Sri« 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 


R2H - 350-JI hX PV.RPORMANCE ; 

DIM A(50,14) ,X(20Q) ,Y(3) ! 

IF Y(l)]i THICX 150: Y(l) = l 

RKH - HATER VAPOR PROPERTIEP) - TEHPERATURE (1) { 

RATA 32 , 34 » 36 , 3<j , 40 , 4 2 , 44 , 4 6 , 48 , 50 , 52 , 54 , 56 , 58 , 60 , fiT , 64 , 66 
f * o ^ y 0 

RE" - HATER VAPOR PROPERTIES - PRKSSUIllJ (21): 

DATA ‘08854 j .09603, ,10401, .11256, .1217 ,,1315 ,,14199, 
,15323, , 16525, ,17011, .19182, .20642, .222 ,.2386 

DATA *2563 ,.2751 ,.2951 ,,3164 ,.339 ,.3631: 

R2M HATER VAPOR PROPKRTirS - EHXHALPY (41); 

DATA 1075.8,1074,7,1073,6,1072.4.1071.3,1070,1,1008.9 
DAIA 1067.8,1066.7,1065.6,1064.4,1003.3,1062.2,1061 , 

1059, 9, 10 58. 8, 10 67. 6, 10 56. 5, 1055. 5,] 054, 3: 

i;nn - water side film coefficient (6i) 

DATA 9 ,0 ,300,150,200,250,300,350,400,450,500,134,193, 

282,370,463,560,655,765,860: 

RKM - AIR RIDE FILM COEFFICIENT (31) 

DATA 13 ,0 ,100 ,200 ,300 ,400 ,500 ,600 ,700 ,800 , 

900 ,1090,1100,1203,1300,9.6 ,13.2,15.6,17.7,19.5, 
21.2,22.6,24 ,25.3,26.4,27.5,28.5,29.6 

INPUT OF CASES (1-50) = ”,Y(2): 

INPUT "DATE = ",A$: 

INPUT "KT 3AL (H0T=l/C0Ln=2) = ",Y(3) 

FOR Z«1 TO Y(2): SELECT PRINT 005; 


PRINT "CASE V 
INPUT "T "S-11 IN 
INPUT "T "S-11 DEHPT (DEC F) 
INPUT "T 350-M IN (DEG F) 
INPUT "T 35C-M DCWPT (DEG F) 
INPUT "T 350-“ OUT (DEG F) 
INPUT "ARS OUTLET FLOW (CFN) 
INPUT "RS-51 FLOW (CPU) 

INPUT "P C1EAMI5ER (IN HG) 

INPUT "T PRI H20 IK (DEG F) 
INPUT "T SEC H20 IN (DEG F) 
INPUT "T PRI 1120 OUT (DEG F) 
INPUT "T SEC 1120 OUT (DEG F) 
INPUT "PRI H20 FLOW (LB/IIR) 
INPUT "SEC H20 FLOW (LB /HR) 
NEXT Z 


";Z 

(DEG 1’) = ",A(Z,1): 

",A(Z,2): 

",A(Z,3) 
",A(Z,4): 
;SA(Z,5): 
A(Z,6) 
,A(Z,7): 
",A(Z,8) ; 
'',A(Z,9) 

" A(Z,10); 
',A(Z,1D ; 
", A(Z,12) 
",A(Z,13) : 
",A(Z,14); 


150 IF y(l)[“Y(2) THEN 160P Y(1)=0: GOTO 610 

160 FOR Z=1 TO 14: X(Z) =A(Y(1) ,Z) ; NEXT Z ; X( 17)=X(13) +X(14) ; 
X(15)=(X(9)*X(13)+X(10)*X(14))/(X(13)+X(14)) : 
X(16)=(X(ll)*X(i3)+X(12)*X(14))y(X(13)+X(l4)) 

170 X(1.8) = X(17)*(X(16)-T(15)) : IF X(13)*=0 THEN 180s 
IF X(14)«0 THEN 180: X(30)«*X(17)/4: GOTO 190 
h80 X(30)*X(17) /2 
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h90 


200 

210 

220 

9 


2 30 

260 

270 

2S0 

290 

300 

310 

320 

330 

340 

350 

360 


370 

330 


390 

000 


410 

420 


24 0 


UKSTORE 61; POPw Z-101 TO 120P READ X(Z) ; NEXT Z; 

C0‘51IB ’02(X(30) ,0) ; X(31)=Zl: IF X(13)"0 THEN 200; 

II X(14)=-0 TIIEU 200P X(19)=27!^‘54Q3*X(31) ; GOTO 210 
X ( 1 3 ) « 2 7* • 54 08*X ( 31)/ 2 

X(20)«X(6)+X(7) ; IK X(2)]0 THEN 220P XC21)=X(4); GOTO 
1' X(4)zO the:; 230; X(?.1)=^X(2); GOTO 240 
/.(2i)«(x(2)-i:i(4))/2 

X.'i0l):r20f X(102)«0: llESTOUE 1; FOR Z=103 TO 142P READ XCZ) 
tliiXT Z: COSUR ’02(:<(5),0): P1=Z1: GOSUR » U2 ( X(21) , 0) : P2«Zl 
X(22) = l44*60^HXC8)**49l2)*X(20)/53,35/(X(l)H4 59.6) 

X(2 3)-.24*::(2 2)*(X(3)-X(5) ) ; A3= . 622*P1/ (X(3) **4912-?!) i 
A 2 . 6 2 2 * P 2 / ( X ( S ) * • 4 9 1 2 - 1’ 2 ) : X ( 2 4 ) = 1 0 G 5 * ( 2 2 ) * ( A 2 - A 3 ) : 

X(2 5)-*(::(2 3)-i-X(24)) /::(18) : X(26)«XC20)y.a015 
''E3TORE SI: FOR Z«10i TO 128; READ X^) : NEXT Z 


;(29)=Z1: 
IF X(14)> 
290 . 


X(27)»=313* 
0 THEN 280 


5403*X(29) 


G03UF. ‘02 (X(2C) ,0) ; 
ir x(13)='0 the; 280; 

X(27)=^.8*X(27) : GOTO 
T(27)=. 7*X(27) 

II1=X(19); K2=X(27) 

ON Y(3) GOTO 310,320 
X(27)=ll2: GOTO 330 
XflQ)»IIl 

U-K(27)/X(19) ; . 

Tl--K*24*X(22)*:;(3)+X(17)*(K*X(21)*hX(21)-X(16) )) / 
(H*X(17)+»24*X(22)) 

01=.24*X(22)*(T1-X(5)) ; Q2*=(J1+X(24) ; IF Q2ZX(18) THEN 
T2=X(16)J T1=X(3): Ql*=X(23) ; n2=X(lJ); GOTO 360 
T2=X(21)-H*(T1-X(21)) : El= (X< 3) -Tl) / (X ( 3) -T2) ; 

K1«X(1 7)/ C *24*X(22)) : GOSUB ’01 (El, Ml); 

U.T==. 24*X(2 2)*K 

E2=^(T1-X(5) ) /(Tl-X(15)) : M2«X(17) *Q1 / ( • 24*X(22) ) /Q2 ; 
GOSUB ’01(E2,H2); U2=. 24*X(22) *K*Q2/Q1 : 

U3=((l/H) /(H l/lO)*Ql/Q2-l*Cl/(l+i/H) ) : XC23) = U1+U2*U3 
ON Y(3) GOTO 330,400 

I12=l/(1/X(28)-1/Xa9)) : IF ABS((X(27)-H2) /X(27)) ]«.5E-3 
THEN 300: X(29)=X(27) /313/ . 5403: IF X(13)=0 THEN 390: 

IF X(l4)-0 THEN 390; X(29)-X(29)/.8: GOTO 420 
X(29)=X(29)/.7: GOTO 420 

Hl=l/(1/X(23)-1/X(27)) ; IF ABS ( (X(19) -Hi) /X(19) ) ] -, 5E-3 
THEM 300P IF X(13)=0 THEN 410: IF X(14)=0 THEN 410: 
X(31)=X(19)/27/.5403; GOTO 420 
T(31)«2*X(19) /27/.5408 

SELECT PRINT 211(156): PRINT HEX(ODOE) : 

ON Y(3^ JOTO 430,440 
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430 

44 0 
OiO 

4C0 

4 70 

000 

490 

500 

510 


PRINT "RSECS 350-M UX PERFORMANCE / HOT SIDE BAEANCE"; 
PRINT HEX(OA): 

GOTO 450 

PRINT *’RSECS 350-M liX PERFORMANCE / COED SIDE DAEANCE" 
PRINT HEX(OA) 

PRINT "CASE {h, ";Y(1) 

P-aNT "DATE ; "jAS: 

PRINT "iNPtrX DATA ~" 


PRINT HEX (01) 



PhlMTUSING 540,X(10) ,K(H) ,X(12) : 
PRiNTUSING 550,X(13) ,X(14) : 

PRINT IIIJX(OA) 

PRINT "OUTPUT DATA 
PUINTUSING 50Q,X(17) ,X(30),X(20) : 
PIUNTUSING 570,X(22) »X(2C>) ,X(2S) 
PRINTUSING 530,X(19) »X(31) ,X(27) t 
PRIMTUSIMG 590,X(29) ,X(23) ,X(24) : 
PI'.INTUSING 6C0,X(lfi) ,X(25) 

PRINT IIEXCOAOXOAOIOA) : 

Ya)=YCl)+l; GOTO 150 

■' -- 


:T RS-11 INLET 


SEC 

H2S 


3 5 0 -M I MEET * i! # 

520 XT 350-^ DEDPT 
RS OUTLET FLOW 

530 riRS-51 FLOW //////# 

PRI H20 INLET =-/////; ii^# • (f# 

540 2X SEC H20 INLET 
SEC 1:20 OUTLET «-Q// f • 4S7 
550 %FRI 1120 FLOW 
500 %TOTAL I!2 0 FLOW 
OTAL AIR FLOW « H 

5 70 2 AIR WEIGHT FLOW =- 7 

STAL RX UA ,7// 

500 XCOLD SIDE HA 
ST SIDE HA =-#f?#i7/7* 

590 %iiOT +ILM COEFF 

HATENT (Z# 

6 00 TOTAL 
,610 END 

620 Dr.FFN'01(E3,II3) 

630 IF M3»l THEN 640: IF M3]l THEN 6S0P 
K=»M3/ (1-M3)*L0G((1-E3) / (1-E3/M3) ) : 
K-E3/C1-E3): GOTO 660 


-//// 

■,7(f 

' 77- 
’ ,77 
■77 
■77 
‘77 


T RS-11 DEHPT 
T 350“° OUTLET 
CHAMBER PRESSURE 
T PRI H20 OUTLET 


H20 FLOW 
FLOW/ START 


AIR VELOCITY 
COLD FILM COEFF 
Q SENSIBLE 
HEAT BALANCE 


«-777t77 
■“-@,7 7 ,7 7 

“-, 77,^77 

»-(?7777- 

«-07777 

=-77777 

=-77777- 

=-(3 7777 ^ 

=-. 7.7777 


• ,7 t7 
•77 

• 77 

•77 

',77 

■77 

■77 

■ 77 


. Ji /I 
« V!f 


T 

A 

T 

T 

T 

T 

H 

Q 


ifU 




64 0 


GOTO 660 


650 R=M3/ (M3-1) *LOG ( (1-E3/H3) / (1-E3) ) 

660 RETURN 

670 DEFFN’02CC1,D1) 

6S0 DIM Al(6) ,X1(6) ,Yh(6) 

690 11=101: N=3: N2=2 
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500 


510 
520 
730 
7A0 
750 
7 CO 
770 
7 30 

590 

300 

CIO 

820 

830 

6'tO 

S50 

860 

870 


IF XCI1) = 3 THEN 740: IF X(n)]3 THEN 750P 

IF X(I1)[0 THEN 770: IP X(I1)«0 THEN 740: 

IF X(n)=2 THEN 720: IF X(T.J)]2 THEN 740 

N“l: GOTO 730 

N=2 

N2«I 


L=n: IF X(LJ]0 THEN 780 
ICl--— 1: 21=^0: GOTO 1050 

IF X(l^hi)[0 THEN 770: IF X(I,-H)]0 THEN 300 

NB“0: GOTO S3.0 

NS=^X(I*i'l) 

Kl-0: K3=0: C2«C1: Jl=-II+2; J2«N9+I1+I: 

IF C2[}:(J]) THEN 850P IF C2 = M(JI) THEN 86C. 
+0R J«JI TO J2P IF C2X=X(J) THEN 870: NEXI 
Kl=2; C?»T(J2) 

J9=’.J2~i-:; GOTO 8 30 
Kl^i: C2=XCJ1) 

J9-^J1: GOTO 330 

IF J-51Z1 THEN S50: IF THEN 860P 

IF J=J2 THEN 840: IF J]J2 THEN 830; 

J9»J~N2 


J 


880 C3-C2; IF N8]0 THEN 890: FOR L«1 TO Wl: XICD^XCJS): 
L6-J9+N9: Y1(L)«TCL8): J9-U9+1; NEXT L: 1=1; GOTO 970 
890 J1=J1+N9P J2=J2+N6: D2=E1; IF D2[X(Jh) THEN 920P 
IF D2 = X(J1) THEN 930: FOPv J=JI TO J2; 

IF D2t=X(J) THEN 940: NEXT J 
900 KS=6P D2=X(J2) 

910 J8=J2-N: GOTO 950 
920 IC8=3: D2=X(J1) 

930 J8=J1: GOTO 950 

940 IF THEN 920P IF J-J1=1 THEN 930; 

IF J=J2 THEN 910; IF J]J2 THEN 900P J8=J»K2 
950 J7=J9: LS=J8+N8c(J7-Il-l) : t7=H3: FOR L=1 TO Nl; 

X1(L)=X(J7); Y1CL)=X(L7): L7=L7+K8: J7=J7+1: NEXT L; 
1=0? GOTO 970 

960 Y1(1)=Z1: FOR 1=1 TO N; L7=L8+I : Yl(I-t-l) = 0P FOR M=1 TO 
Y1(I+1)=Y1(H-1)+XCL7)*X1(M) : L7=L7+NS: NEXT H: NEXT I: 
FOR L=] TO Nl; X1(L)=X(J8): J8=JS+1 : NEXT L: C3=E2: 1= 
970 D=l: Xl(N+2)=Xl(h) ; XI (N+3)=X1(2) : FOR J=3 TO Nl: 

A1(J+1)=T1(J+1)-X1CJ) ; C4=C3-X1(J): IF C4 [ ] 0 THEN 990* 
Zh=Yl(J); X1(1)=0: Xl(2)=0: Xl(3)=OP Xl(4)=0 
980 X1(J)=1: GOTO 1040 
990 D=D*C4 ; ON N GOTO 1000,1010,1020 
1000 X1(J)=C4/A1 (J+1) : GOTO 1030 
hOlO X1(J)=“C4: GOTO 1030 
1020 Xl(J)=(XlCJ+2)-XlCJ))*C4 

1030 NEXT J: Al(l)=Al(N+2) : 21=0; FOR J=1 TO Nl : 

XI (J)=D/ (A1(J)*A1(J+1)*X1(J)) ; Z1=Z1+Y1(J)*X1(J) : 

NEXT J 

1040 IP lt=0 THEN 960 
1050 K1=K1+K8; 

RETURN 


OBIGHAIi ^ 
OF POOR 


B-21 


HMIETON STANDARD 




TGCtHtOtOCIES'K 


APPENDIX B.3 

RESULTS OF DATA REDUCTION PROGRAM 


B-22 


! 


§i 


§k 

|l 


tri 

J 

W 


- i . * 

jRSHCs 

■-CASK- ' *i ■ 
‘DATE : |7/3/75 

^ISl-UT tiATA - 


:t rs- 11 i:ii,F.T 

*A ■ 

77.30 

T HS-11 DEWPT ' 

■=. 

^ /i5.50 

T 350-M ISLET 

R 

79.10 

T 35’>-‘< rir.'.«>T 

zi 

^3.50 

T 330^M OCTLLT 

c; 

42-04 

AR3 OUTLET FLO»' 

sa 

32.30 

•RS-51 TLO" 

3 * 

7,50 

FRESiORE 

tj 

30.00 

T PRI h20 ISLET 

u 

42.09 

r SEC H20 INLET 

s 

0.00 

T PSI H20 OUTLET 

\p 

: ’ ■ 47.30 

T 6EC H20 OUTLET 

13 

0.00 

;PRT ,ti2 0 FLO!' 

* 

750.00 

SEC H20 FLOW 



* 



-*OtlT?l3T DATA 



1 - . • 

... 

i ' 




: TOTAL r!20 ?LO,I 


75^5,00 

^1)20 FL0..7START 


375^00 " 

TOTAL AIR F'LOll 

» 

Too. CO 

AIR U'EILKT FLO:? 

“ : 

444. /i9 

AtR VEL0C1I7 


il3,44 

TOTAL ;;a LA 

R 

92L.4? 

' COLD SIDE :iA 

s 

6^29-30 

COLD Fll/r COEFF 

ta 

606.63 

HOT SluE xiA 


ii7i.es 

HOT FILK COLFF 

a ' 

‘ ' 9;39 . 

: 1 SENSIBLE 


. .3953.50 

3 LATENT 

= 

* 379.79 • 

TOTAL ; 

1 . . , i ! . 

A - 

•4350.00 

.... 1 » 

elEAi;' 3ALAiiCE 

i : : : [ ‘ 

- B 

0.996 

. . 



■ 1 





‘ t 

. . - » . 



•■ur3|.7;-| :■:■■>.• 

• RSECS’350-M'jiX 

• • ' 4 
. - ^ 4 

' 1 ::: : . 
- • • + ^ — '■ 

'••■■■ — 


i . j r* 

‘ i ' • ' ' ' 



?tHFCRHASCE 7 

..HOT ‘side OaLAKCE 




i 



-I'CasE ' £- t. .‘.2 

_i 

' . . ^ 

i * • " 



I ' *■ 



; DATE t JfS/J3 

■ - ^ i 


t ' *T“ * ' - j 

7: 

.4- - — . ^ 

"Trr~'. "T'T". 



-INPCT DAI A - 


\ .1 _ Z ' 



: 


1 ' I V. 1 

•^•T RS-11 IKLET 

- -e 

-77.35 ■ 

-f RS-ii DE^tPT 

- m 

*47.00 

T ’350-:i INLET 

s 

• 76.^^ 

T 350-;t DEWl’T 

= 

47*00 

T 350-y OUTLET 

«■ 

45.60 

AK5 OUTLET FLO: 

R 

237.00 

i RS-31 FLO'J 

ts 

5*30 

-CiUriiiLR FRuSSURE 

A-r 

30.00 

T FRI *i20 INLET 

- 

45, Ai 

UT SEC IJ20 ISLET 

c; 

’ 0.00 

T PRI it 2 0 CUTLET 

a 

52.37 

T SEC rl23 OUTLET 

=i 

0,00_ 

, ELI ii20 ILO.I 


750.00 

SEC H22 riOu 


“0.03 




: : OUTPUT DATA - 

- ^ * 

- ■ . i. . . 

i - 






-TOTAL L20 FLOS’ 


-750,00 

ii20 FLO^V^TART 


375.00 

TOTAL AIR FLO*; 

= 

142.30 

; AIR 'HEIGHT "LOT 

c; 

632.51 

AIR VLL0C1T7 


161.42 

TeTz*.L la 


10 7 j . J3 

- COLD SIDE HA 

£= 

4429.30 

COLD FIL? COEFF 

■R 

603 « 

HOT SIDE ' * 

Tl 

1411.53 

'• HOT FILM COEFF 

33 

11.91 

3 SLHSIt»LE 


5067.19 

1 LATENT 

9 

23^.66 

*: Q TOTAL ■ ' 

=i 

5212.50 

HEAT UALA‘ICE 

'^TS ’ 

1*017 





■RSEC? 330-r KV PESTOK'rASCE / KOT SIHE EALA.VCE 


^3 


CASE Si J 
DATE : 7fSn5 

1S?L‘T DATA - 
X RS-H 1.VLET 
T 330-M 0E.;PT 
: 1^5-51 FLOW 

T SEC ti30 IWI.ET 
;.PRl_il2i* FLO;; ... 

I OOTPCT DATA - 
I TOTAL d20 FLO;j 
}— AIR HEIGHT FLOb' 
j COLD SIDE DA 

[ hot fil;: coeff 

t ^ TOTAL • 




R5EC5 



IDE DA =• 4A29.30 COL 

L;: COEFF - 13.73 ’.1 S 

L - g t- 7425. 0 0 tlEA 

. i I * - I - - - *■ 

350-M HX PERFORMASCE / KOT 


77.30 T RS-11 iiH'iPT 
46.50 T 35a-« C-;;ILET 
S.23 CfiA-IAES PRESSURE => 
0.00 T PRI llSO OUTLET =■ 
753.00 SEC K20 FLOW <> 


730.00 !120 FLO r/START 

-085.65- AIR VELOCITY ■ 

J429.30 COLO FIL:1 COEFF = 


ERalALE 
£ J?ALA-IC^_ 

- fr--’- 
» )-. . . 

. i . .. . . 


SIDE &ALAUCE 


. ^ 

V3/75.::-.vi— 



j ISPUT DATA - 
LT;RS-li ISLET 
-T-353-M DEWPT 

—RS-5t FLOW 

riT.SEC H20 ISLET 
h'PRI H20 FLOS 


73.53 T RS-11 DEWPT 

- 47.50 T 350~:i OUTLET ’ 
J;30^:CliA>:aER PR2SSURE- 

':.'.o.oo ;t prt k2c oetlet 

' 750.Q0 ,3EC H20 FLOS 


OUTPUT DATA - 
PTOTAL H20 FLOW 
pAIR WEI GET FLOW. 

j-COLD SIDE HA 

PHOT FILM COEFF- 
H Q TOTAL 

L.. * , . i . . , ^ 


750*00- 
- L,1306*il 

- 15*59 

^ :i0550^00 ■ 


1120 rtO'^/START 
Ain VELOCITY “’Z * 
COLD FILM COEFF-* 
SEN’SISLE ■ 

dEAX EALaVICE . i 




X 33J-M I:;L£X - 73*70 

AES ^liLEX VLO^ « 1^1.00 - 

T Pr.I H20 iriLLX = 44*50 

X SJC o20 OUTLLl = 3.00 


TOTAL AIR ILOU = 193*25 

TOTAl- riX lA ^ 1131*25 - 

MOT SIDS dA = lb33.32 

M LATEMT 305*57 








T 350-M IMLET ^ ' 30*00 
AR5 OUTLET FLO ^ - .257*00 
T PRI H20 ISLET - 44*20 
T SEC ^ZO OUTLET 0.00 


TOTAL AIR FLO!f 
TOTAL 'IX UA ; 
fiOX SIDE ilA 
0 LATE^IT 





r 


« 

t 

|0 

Ul 


f- -r l ;. 

UnsEcs 350-j i;:c pnKroK!iAUCE / .aoi sinz 3ala:ick 




> ‘ * , j , .... 

i CASE V t 
;.DATE : 7/3/75 

. , i . . - K t ■ . 


* * ' t - 1 ■ • * 


— i ’ ' i ' 

^ . INPUT data “ . , 

- . 4 


• T RS-11 irn.ET 

- 75.10 

f RS-11 iIEWPT , = 

' T’3S0-« DEVPT 

52,90 

T 350-r OUTIET 

. RS-51 FLOW* 

» 7.50 

CilA'raLH THESiiURK 

“7* -SEC H20 It! LET 

■ 0,00 

T PRl ;ilO OUTLET. ■ 

■;?KI 1120 FLOC 

- 750.00 . 

SEC H20 FLO;.' 

:: OUTPUT DAT.*, - 



• TOTAL i:2o rrc / 

^750. 00 

H20' FLOW/START > 

AIR WEIGHT FLO.? 

- 443,00 

AIR VELOCITY 

-COLD SIDE HA 

“ 4429.30 

COLD FILI COLFF « 

-COT FILM COKFF 

- 

Q SEWS IDLE - 

. •5 TOTAL , 

. . 5100.00 

I. EAT 3ALATCE 



^.:.L 

RSBCS 


350-M liX ?£nFOR:iAMC£ / liOT SIDE iJALA.'ICii 

g.' *6 ■*•:*:: v.:: ; : 

: .7/3/75 :*r::r::~rrtT:™:r.--rrr.-i^ 


IKPCT BAT.\ - 
i Rs-il ixu:t . 
T 550-V a-z-ivi 
RS-51 FLOTv' 

T SEC a?0 IJILET 

p't 1.1(20 no;/ 

OUTPUT DAT.\ - 
TOTAL .H20 FLO:: 
Ain WEICiiT FLOW 
COLD SIDE It A 
HOT pil:< COEFF 
Q TOTAL ■ 


. - . ... ..... 1 ..,. 

= — 7J.5Q;.1T. S.S-11_DEW?T 

" 5/S, 00 T 350-M OUTLET 

'= ^ 7.50 CHAWSER PEiSSU:! 

a 0.00 T Pni it20 OSILE 

-’750.00 SEC H20 FLOW 


„750.00 

S54.06 

4429,30 

13,55 

3250.00 


H2 0 FLO’.:/ START 
AIR VELOCITY 
COLD FiLW COEFF 
■i SESSI3LE 
HEAT 3ALAHCE 





Cd 

I 

ro 

a \ 


KSECS 35C?‘rV UX PK?.FOR:'lAaCE / ilOT SIHE 3ALx\SCE 


CASE 5 t 
PATE t 


7/a/75 


rOPUT DATA - 
T RS-11 l^LET 


30.60 

T RS-11 DEWPT 

o 

54.00 

r J50-;! T.wlet 

_ 

d2.53 


s 

7S 

T 3iO->’ DETPT 

* 

54.00 

I 3i0^:: OUTLET 

e* 

49.39 

AP.S OUTLET FLOW 

= 

29X.00 

* ’■ 

R3-51 FLOW 

H 

7.70 

CtiAWilcR PRESSURE 

= 

30. OJ 

X PRI .120 i.;let 

= 

46.50 


'T SEC H20 ISLET 

a 

0.00 

T PRI il2d OUTLET 

a 

61. 3J 

T SEC H20 OUTLET 

* 

0.03 


D 

PRI H20 FLOW 

ae 

750.00 

SEC 320 FLOW 

9t 

0.00 



* 

■ # 
4 




i ^ 








cs 

r: OUTPUT DATA - 



... • 


I" 




i 

--TOTAL H20 FLOW 

» 

750.00 

H20 flow/START 

■n 

- 375.00 

TOTAL AIR FLOW 

= 

253,70 

- *, 


C: AIR WEIGHT FLOW 

m 

1319.59 

AIR VELOCITY 


333.85 

TOTAL :U UA 


1336*37 

” 2 


i.COLD SIDE riA 


4429.30 

COLD FILH COEFF 


■ 606.63 

aOI SIDE liA 

= 

1915.29 


is 1 

t HOT FILM COEFF 

s» 

16,16 

Q SENSI8LE 

TS 

10356.15 

^ LATENT 

w 

1304.51 

• 

- * 

5” E. 

r’q TOTAL , . . . 

=. 

*11475.00 

HEAT SALANCE ' 

*S 

: , . .1.059 


: 

^ t 

§ 


r'?:SECS.35 0-H:HX FERFORHAS^CE /^HOT SIDE , BALAMCE 1 




— — ■ -T '* 


1 .. 




t rr r : 

I * • f ♦ • « ^ I 





T “ 


• CASE 
-DATE 




: INPUT DATA 
1-^T RS-11 l;^IET 
T'35Q-M DEwPT 
PRS-51 FLO,: 

T SEC H20 rSLET 
PKI H20 FLOY 


'3 - -{ 

: 7/8/75 ~ 

j~, 


|. i - 1 ; j ,: 1 . ” 




— 




i 

-1 

[ . 1 ' 1 ” 





i — 


, -4 






;.__79,O0 
■: 65.00 

-7*70. 

. 0,00 

■-! *750.00 


■tmTPUT’DA.TA*- 

IT'OTAL H20 F1.0;^ ' 
■AIR WEIGHT now 
L!.C0LII..5ID£.HA . . „ 
HOOT FILM COEFF 

■^q total : _ “ 


T RS-113EKPT 
T 350-M OUTLET 
-ICUAZWEH. ?RE33URE„=_ 
;T PRI H20 OUTLET = 
SEC azo FLOW 


r . 750*00 

- 441.76 

LLjA 42 S .30 
■■ 10 . 00 “ 
*1-7050.00 


!H20 FL0V/3TART 1 
'AIR VELOCITY 
COLD FTL'I .COEFF 
■*Q SEKS13LE T 
heat 3ALASCE 


“^3-00 T 350-:i INLET 
r* 45.60 ARS OUTLET FL07 

; _3 fl,03 T_PRI d20 INLET 

. 54.90 T SEC 1120 OUILEX 

^ 0.00 ' - 


82.53 

92.90 

45 . 50 * 

0.00 


. -L.- . 


375*00 
* 113.10 
__ 606.63 
• 39 i 2 V 2 X 
V - 1.004 
ij : 


TOTAL AIR FLO;? 
TOTAL HX UA 
JICT SIDE H A 
q LATENT’ 


:: '99.70 
' 934.97 
1185.51 
‘ 3163. 3 £’ 




UKKilNAL PAGE IS 
OE POOR jciUALirs : 


R 

I 

M 


REECS 350-M HX i 

CASE ii ;9 . 

DATE : 7/S/75 


ERFOttHASCE / -I lALASCE 


INTUT DATA - 
T'F.E-31 I'-’LET- 
T 350-'! DE’.v?r 
rs-51 i'ln.i 
X SEC .120 i:?LET. 
PRI 1<20 FLOS 

OETPL'T DATA - 
TOTAL ’i 20 PLOW” 
Air. WEIGKT FLOW 
COLO STD" HA 
HOT FILW COEFP, 
q TOTAL ■ " 



— 76-;S0- *T RS-11- DEWPT ” 
50-00 1 353-;! OUTLET' 

7. to ChA.'!»EH PRE.S5UH 
. : 0,C0 T PRI H20 CUILC 
750,00 .SEC h20 FLO'.’ 


«* - 750,00 
S 30.92 
» 4 A 29.30 

= ” 13.91 

." 110395.00 


1120 FLOW /START 
A7R VELOCITY 
COLD FILT C0F..5fF 
q 3E.VSILLF. 

UEAT sai.a:ice 


>ERFO.RltANCE / MiOI SIDE 3ALAHCF. 


•ea.70 

-’ 61.00 

:-^- 7 . 7 C 

0.00 

_.750,00 


T ES-11 DEWPT 
T 330-*T OUTLET 
CiIA*'JER PRESiUSE 
T PRI H20 OUTLET 
. SEC _ a 2 CL . FLOL ’. . , 


- 750.00' 

" 1313 . as 

= 4429.30 

- 16.28 
- 12975.00 


H20 FLOW/3TAF-T 
AIR VELOCITY 
COLD PIL;.' COEFF 
q .SE3SI3LE 
HEAT 3ALAUCE 





= ■50.00'-T-350-*t- ISLET 

. ! 46-70 ARS OL=TLUT FLOW 

■ ■ -30. UO T PHI H30 I.”LLT 

= • 53.-36 T SEC H2D ODTLET 

= . - O.’JO 


*-• -375.00 total air FLOW- 

= : 2^6.65 TOTAL HX L’A 

• 606.63 1)01 SIDE HA 

• 6390.9.5 '} L.ATEilT 

i.oia 



61-00 T 35-3-:* I.JLr.T 


-53.30 .IRS OUTLET FLO;.' 
30.00 X ?HI -iOO ISLET 
66,30 T .SEC H20 QL’TLir 
0.-30 . _ _ - 



=f ^-79.00" 

192,30 
= 45.03 

= - ... 0-.03 ■ 


» -199.8-3 

= 1201-74 

= 1649.36 

* 3695.92 


t - 

^ 54*00 

= 292.00 ' 
= 49.51 

O.JO 




375.03 TOTAL AT?. FLOL* = 299.70 

339-93 TOTAL =TK »A *= 134,?. 53 

606*53 :!0T nA “ 3929.51 

9559*25 1 LATH.;t * 3712*76 

3.022 



RSECS 350-M UX PEPFORMAiJCE / HOT SIDE 3ALA»CE 


CASE 
DATE J 


11 


* INPUT DATA - 











-fc. ^ 

T RS-IX INLET 

a 

82.50 

r RS-li DE’WPT 

ax 

54.50 

T 35 3"*; INLET 

= 

54.00 


T 350-M DEKPT 

* 

54*50 

T 350-?i OUTLET 


54.15 

AR5 OUTLET FLON 


291.00 

; 

■ RS-51 FLOT 


~ 7.70 

CHA'IJER PRESSURE 

- 

30.00 

T FRI :i20 INLET 

= 

45.00 


•p SEC ri20 ISLET 

a: 

0.00 

T PRI u23 

OUTLET 

as 

72.00 

T SEC ;i20 OUXLiil 


0.03 


— PRI H20 FLOW 

s 

350.00 

SEC ti20 FLOW 


0.00 



, 


— OUTPUT DATA - ^ 



*— . — — 



■ ■ 



— “ 

::total h2o flo« 


350.00 

H20 FLOL-/START 

-B 

175. CT 

TOTAL AIR FLOW 

= 

295-70 


. -AlP. WEIGHT FLOW 

P= 

1314.72 

AIR VELOCITY 


33S.35 

TOTAL :iA UA 

= 

912.13 


!—COLD SIDE KA 

1741.24- 

COLD FILM 

COEFF-- 

-B ■ 

-233.50 

HOT SIDE HA 

=■ 

1915-87 


Uaox Fiun coeff 

at 

■ 16.16 

Q SENSIBLE 

= ' 

:3413.63 

J LATENT 

ar 

162.22 


-Q^TOTAL^^ ^ 

9450.00 

HEAT BALANCE - 

- ts. . 

^ 1.013 

. . . 



1” 


— 

- —4 - - p- 


— r* 

rr 

7“'* T';t* 

^ !S * ~ ~ ' * ' 

J . ^ * 


T" ^ • 

n 


..-J, 


1 i...: . i — . 

M :^4- 




:i: .7-. 


: 

- j . . . - 

— 


PrSECS 350-M hx performance 
rcxsE'jf i ■ ' 

-date : : 7/8/7S; _ j -- -r — 
piKPCT DATA^-”“~* 


7 -HOT : SiDET'BAtANCE 


1 


^ - j— -p--- 


-rr 




_u 


-;h 


:rpr:.. 


t * 
i - 
t — 

1 * * 


-T RS-ll INLET 82.-20 

It 350-X DEVPT. ■ .A i ' .,‘52.00 

-ttS-51 FLOW — t 3.80 

tZT :SEC ■ H20 INLET': ,*V. 00 . 
Pai-U20 FLOW ; ^750,00- 


TRS-ll DEWPT 
T 350-.M QOTLtT 
CHAMBER PRESSORE 
T PRI H2-3 OUTLET- 
SEC H2OFL0W 


PlOUIPOT DAIA.~' ' r ! ' ' ) 

IOTA.L H20 FLOW »• 750.00 

•AIR;USI5ET flow. -1. 1311 . 73 
COLD SIDE UA • -» A429.30 

3T0T FILM COEFr » ^ 16; 44' 

—Q. TOTAL. — .^.^■’^-12075. 00 

. . t...... - - ^ i I-II- — 




32.00 
: 49.05 

30.00 
"62,10 
lil-o.oa 

f -f t - k • -• * 


X 350-M INLET' 
ARS OUTLET xLOV 
T PRI rt20 IMLCT 
T SEC H20 OUTLET 


i . 


^ 34.00 
.2S0..00, 
45.00 

: 


a*20 ?L0^/3T*.r.T 
AIR VELOCITY »! 

COLD FILK COtFF- 

SENSIBLE « 

:UEAT BALANCE... 


375.00 
; 337.83 
. 605.63 
- 11002.79 

J ^ ... 

-I — - ft * ■ 


TOTAL AIR FLOW 
TOTAL IVA UA 
ROT SIDE 3A ' 
Q LATENT 


297. SO 
1353.23 
*1943.33 
-1204.33 


;ji:: 






.,R5ECS 350-:i KZ;PERFdR!!ANCE .if HOT SIDE BALANCE ; 


CASE 

r»ATE' 


f: 13 

:T~^n hits'. 


: INPUT 
•T RS- 
T 350 
:xs-5i 
•T SEC 
7TX1 n: 


DATA'-' .: : 
n INLET 
-V DEHPT ■ 
FLOK 

<120 ISLET 


il20 FLO«- r-T— '400.00 


OUTPUT DATA - 
JTOTAL H20 FLOW 
■AI? WEISHT FLON 
;COLD SIDE HA 
• HOT FIL.I COUFF 


.-..82,40 
- 53.00 
: :::7.5o 
... 0.00 




■’f'R.i-ii iDEMPT ■ ! : T= : 
T 3S0-M OITLET* 
CL'AMuEP, PRES.SURE * 
T PP.I H2D OUTLET = 

-SEC H20 flo:j - - 


.53.00: 

52; 50 
30.00 
70.20 
— O; 00“ 


.T 350-;t INLET 
A2S OUTLET FLON 
T PLI N20 I.ILET 
T SEC rf20 0UTL.“T 


r*IJ • TOTAL- 


: 400.00 1120 FLOW/STAXT . ■ 

1309,92 AIR VELOCITY 
2053.82 COLD FIL:I COEFF 
16.22 SEN.SI3LE 


=-10080,00 KEAT BALANCE — = 


’ 200.00 
337.49 
2S2.00 
9933.03 
-- 1.004 


TOTAL AIR FLOW 
TOTAL ;i:< UA 
TtOT SIDE a A 
H LATEST 


*. li. - • «... . f *. 

...I*.,.. - 

"^5 EC S - 3 50-i'r- 11 X -P E KFOP.M.AK C E / ‘ ilOT-3 1 OE 3 AL AS C ^ - 

.... , . . . . . . , . 


• CASE i- 
-DATE 


14 - 
7/8/75 


1- INPUT DATA - 
t:T.RS-ll ISLET 
£-T.-350-?l DEUPT - 
I RS-51 FLOW 
;.T SEC H20 INLET 
f PRl 1120 FLOW 

j — ... . . 

I .'output data - 

! TOTAL H20 FLOW 
■_AIR SEICUT FLOW 
-COLD SIDE NA 
: ,nOT FILM COEFF 
. Q TOTAL 


LM.AKCE / ilOT-SIDE -3ALASCE- - 


82.20 

—54.00 

7.60 

0.00 

600.00 


T RS-11 DEWPT = 54.00 

• T. 350-:! OUTLET .50.25. 

CilASBER PRESSURE = 30.00 

T PRI 1120 OUTLET - . 65,10 

SEC h20 FLOW ■ = 0.00 


500.00 
. 1310,84 
3330.27 
16.24 


H20 FLOW /START 
AIR VELOCITY 
COLD FIL-! COEFF 
1 SENSIBLE 


i. 12060.00 HEAT SALANCE 


300.00 
. 337.60 
463. -30 
10617. tiS 
1.014 


T 350-'! INLET 
ARS OUTLET FLOW 
1 PRl a 20 I ILL! 

T SBC 1120 OUTLET 


TOTAL AI^ FLOl 
TOTAL :iX UA 
<iOT SIDE HA 
q LATENT 
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RSECS 350-M HX PERF0RMA:?CE / HOT 5IDZ liALAl^CE 


CASE ifi 
DATE ! 


19 

7/3/75 


INPUT DATA - 
T RS-11 I.aET 
T 3 50-M DEiH^PT 
KS-51 FLOtJ 
!’ T SEC iI20 I^JLEX 
] ?R1 hiO FLO*/ 

{- OUTPUT DATA - 
TOTAL H20 FLOW 
.AIK .HEIGHT FLO/ 
COLD SIDE HA 
’HOT riLU COEFF ^ 
f-Q TOTAL 


7G*oa 

51.00 

7.80 

"0.00 

750.00 


T KS-11 DEWPT ^ 51.09 
X i3U-r^ OUTLET =* 45.60 
CUA:!3LK PRESSURE « 30.01 
T PUI i!20 OUTLET =» " 53*25 
SEC H20’ FLO/ * 0.00 


750.00 

385.79 

A429.30 

“13.55 

3062-50 


4- 




R20 FLO;:/STA.RX 
AIR VELOCITY 
COLD FILll COEFF 
- 0 SENSIBLE 

HEAT BALANCE 




* 375.00 

==* ; 225.52 

» ■ b06« 68 

=i--6S2A.lS 
- - 1.017 


X 350*'l INLET 
AR.i OUTLET FLO/ 

X P-tl H20 INLET 
T SEC H20 OUTLET 


TOTAL AIR FLOW 
TOTAL iVJL UA 
HOT SIDE UA 
7 LATENT 






. 

■ * * *■ I .-i-fc* ■-■{ 


— I • 


ZESECS '3S0-II HX BEEFORMAilCE ■/ :SOI .SIDE BALASCE .. 


t.CASE. )?.: Jao ■ ■ _ 
DATE-: 7/Z/75 


lifEOT DATA - 

M-RS-li- IMtET-^ 

T.350-M DEHPT ‘ _>J . 
f-’RS-51 ELOM - -.=*4- 
tT SEC H20 ISLET i »'_i 
PEI il20 PLO:? 




. — ..r fz j.tZ ITT . 




-75.40 ■ 


:T51.50 , 
— - 7.40 
■ 0.00 
.. - j^^.nso.oo ■ 

ITOOTPUT DATA - T 'i 

prOTAL-EZO PLOW- 
■AIE WEIGHT FLOW 
• COLD SIDE ilA 4429.30 

-HOT FILM COEFF ■ 16.14 

TQ TOTAL IT; ;TTrtll700. 00 


-T-RS-ll-DEi»PT — 
T 350-r: OUTLET 



-:t-|t: 


-CaA:i3EE PEESSUHE 
T PEI H20 OUTLET 
:SEC '020 . FLOW 

imzrrzT [t. t 

IT 2 5 0 , 00— KiO -'FLOy/SIARI-I. 

1 1312.34 AlR VELOCITY 
■ COLD FIL:I COEFF 

Q SEUS13LE 

:ESAT .BALATCo 


1:: 


77.70 

1/1.93 

44.50 

3.09 


193.30 
1178.77 
1606.39 
1332. S2 


i- 


51.50— T^350-H INLET 
4 8,10 ARS OUTLET FLOW => 
39,00 T PRI ;120 INLET = 
60.60 T SECJI20 OUTLET “ 

. ^ . * . I . 0 - oo ^ 

7 5.103^ -TOTAL .AIR FLOU 

' 336.24 TOTAL Ha UA 
606.63 HOT SIDE HA \ - 

10614.25 LATENT * 

r~1.023: 


-Sl,33- 

289.00 

45.00 

0.00 


_296.40^. 

1335.52 

.1912.55 

1355,03 





Sis 


to 

I 

to 

to 


’ M f • * i - I ^ i-i ^ 

— RSECS“^330-li lix PERPORMAHCE / 

CAS Ej?;-^ 21 ' ,;-j.~- -. j — - j 

JPAXK .^:^\ 7 L 5173 ^. ] . - ■■■ - \ 


- H J » M ■ 

*- i i * • -t . 


! 


-MSPOT BATA - 
:1t.RS- 11 ISLKT 
-tT-350-M DEWPX 
■'; rs *-51 FLOV 
.X SEC aid i ;; i .: 
• jp?.i '120 Fio :; 


HOT-SIBE 3ALASCE' 

j , , , 

• r ? r t-M 


:i : 




-4’.- 

.. . .v4 

4 * 

' j 


. . j ^ , I * . . 

-rr -- 


.: :!jri ■!!!:;■ 


J-:,:. 
1 ’- — • 


> : . : 32*^0 
.-61,50 

7<B0 

- ■ . ■ 0.00 

= ■ 75 0,00 


— ‘OUTPUT DATA 

.;total :i2o flo7 : = . :’75q.oo 
—AIR HEICar rtO'-J .441,63 

■COLD SIDE llA 4429,30 

::uoT fil:i coeff ,= ■, 10*79 

-'Q TOTAL • . 3 . 6675.00 


1 


:t rs-ii de'ipt 

T 350-:-: OUTLET . 
XHA'ISER PRESSURE' 
T FRI 112 0 OUTLET 
SEC TLQ'.l 

i ::.:.: i :::: i;^:i ■ 

:H20 FLO’.: /ST art.: 
AIR VELOCITY 
COLD FIL ! CiJt:FF 
Q SEHSIDLE 
HE,\T DALAUCE 


61.50 
44,25 
30.00 
53.10 
- 0,00 


; 375.00 
.113.73 
606 « 63 
,4213.16 
1.019 


T 350-:i l-'ILFT 
ARS OUTLET FLO-' 
T PHI H20 I3LET 
X SEC 1123 OUTLET 

• I ' f ‘ 

- I * 

" f ■ . i 

TOTAL AT? FLO:: 
TOTAL ax !;a -- 
HOT SIDE aA 
q LATENT 


S4.00 

S 2,50 

44,20 

0.00 


-.392.37 

1279 , i 5 

2593,37 


..LU;: 




-t- 




:RSECS 350-M ttX PEP.FORJIANCE / 

.tCASE . J : : i 22 ■■ 

-;DATE ; • j7/8/75 

^fSPOT DATA '-^ 




I. 

- ..^.-4 

' i 



j » 


4 .,. 44 ^.,. 

y. 

HOT SIDE BALANCE 




.1.12. I'ji IJLSSIZIZ ^ ^ _ 




“T RS-ll IULBT 


79.20 

•T RS-13 OEl^PT • 

■a 

61,00 

T 350-:i ISLET 

=i 

52,50 

I:T 350-M DEWPT 


: 61.00 

.T 350-:r OUTLET 


A7,00 

ARS OUTLET PLO%’ 

= 

134,00 

— aS-51 FLOV 


7.60 

— CHAMOEa PRES .SURE 


- ^ 30.00 

T FRI H20 lULET 

= 

45,25 - 

;:x SEC H20 INLET 

w 

0,00 

T PRI 1120 0U17.ET 

= 

60,25 

T SEC U20 OUTLET 

■= 

0,00 

-PRI H20 FLO:.’ 

„ w 

750.00 

.SEC H20 FLQ'.i 

a 

-- 0*00 



- 

"OUTPUT DATA - ' ' 


. — 



■r — ■ • * 

: .* 


— L 

•TOTAL H20 FLO-I 


750,00 

*H20 FLOl/START 

3 

375.07 

TOTAL AIR FLON 

a 

191,60 

’ AIR UEIGHT FLO:? 

at 

8j48,64 

AIR VELOCITY 

3 

217.35 

TOTAL >IX U.\ 

a 

U54,92 

_COLD SIDE RA 

„= 

4A29,30 

COLD fil:: coetf 

= , 

606.63 

HOI SIDE UA 

=E 

1562,49 

-IIOT-PILH COEFF 


13,13 

Q SE3SICLE 

■aa 

7230,46 

Latent 

* 

4179.39 

Q TOTAL 

'ai 

11250*00 

ilEAT SALAUCE 

=x 

1,014 



.r; 


” 

. 



— 







R5ECS 350-U HX PEP.FOftMAtJCE / UOT SIDE SALAXCE 

■CASE St 23 1- ... 

DATE : 7/5/75 . | , . ; : . 


^INPUT DATA - 

T RS-11 IXLET = 33.30 
T 350-:; DE.;PT = 63-00 
R3-51 FLO’.: - 7.60 
T SEC H20 ISLET =• - 0.00 
rai H20‘ FLOW « ^SO.OO 


5TRS-11 JEWPT ■ =•' 
T J50--I OUTLET «• 
CitAM3ER PRESSURE - 
T PRI U20. OUTLET " 
SEC 1120 FLOW 


OUTPUT DATA - 

“TOTAL H20 FLOW “ 750.00 

--AIR WEIGHT FLOW ■= 1307.71 

'COLD SIDE HA = -4629-30 

:^OT-FILM COEFF — 15.96 

-*Q TOTAL -a2562.S0 


— 750. DO H20 rLOU/fJTART ” 
1307.71 AIR VELOCITV 
4429*30 COLD FILV COSFF 

15.96 J^.SEilsroLE 

L2562.S0 HEAT BALANCE 


o2*03 I 350-.I I:ILET 

55. 00 AR5 OuTLET rLO ♦ =* 

33.00 t p:;r ;I2D IN'ieX " 
67, ao T SEC n2Q OUXL^X = 

0,00 


— 375.00 total air FL07 
337.60 TOTAL :a UA 
606,63 HOT SIDE HA 
9101.67 q-LATEIlI 


= 4,30“^ 
293,30 
^3,25 
0,03 


237.60- 

1325,40 

13vi.S4 

.3733-33^ 


1,019 






1 i ^ ^ 

. 



— HSEC5 350-?^ EX PEKFORHAMCE / HOT SIDE BALANCE 
•DATE : — ’TV 8/7 5-^ — — ' ■ ■ ■ " — i h i — 



-IHPUT DATA - 

ZXL'E.S-11 IHLET ' .^=> 
— T-350-H DEWPT 
“RS-51 FLOW 
IlT SEC H20 l:lLEX > 
• -P Ri-^H2G-iLQW--- — - 

Output ‘data 

-^TOTAL H20 FLOW -> 
-AIR HEIGHT FLOW 7 = 
— COLD SIDE HA • 

Zbot.filh.coeff; ■ ? 

—(J-TOTAL 


" 31:40 
53.00 
— 7.30 
" 0 . 00 . 
— 4D0-.00- 


r— 400,00 
TTI2Bi:46 
1 2058,32 
X 16,71 
S^60,00- 


i-j.— , — ..L.. 


•T'RS-11 DEWPT 

-T "350-:! OUTLET” ~ 
CHAH3ER PRESSURE 
T PRI K20 OUTLET 


K20 FLOW/START ■ ■ 
:AtR VELOCITY “ 
COLD FILH-COEFF 
q SE;ISI3LE 
- EEAT-.S ALAHCE 1 


_53:00 T 350-M lULET 
52.20 Aas OUTLET FLOW 
30.0-J T PRI H20 INLET 
'69.90 .T SEC H20 OUTLEI 


' ■ ■; 


t -200.00 TOTAL AIE FLOW 
T"329.55'~T0TAL HI UA ~ “ 
: 232.00 HOT SIDE HA 
^9713.65 q LATEST 


r.r : ■ t: 

- ' 33.30 

= * 233 - 30 ' 

- . 45-00 

= j 0.00 

» ‘ ^^igo.so' 

= — 1009 . 37 " 
= 1930 . 13 - 

= - 341.03 


■ r-- - 



0 

1 

u 

w 


ao.90 

51.50 


: . ftSECA 13 50-11 .UX PE.1 FORKa:ICE.X'1101_SIDE, BALANCE- 

CASE fj "25 ' • ■■! - ' ; 1. • • ' • : : p : : • ‘ : 

DATE t li:i ‘ ■ ■ •>■ . I — 

T RS-11 INLET -I .ft0.90 ‘T RS-11 DEUPT * 

■T '3^0-'I DEVPT _=J_ _51.50 'T 353- *: OUTLET 

'.RS-31FI.0V ■ ■ ” ■7.5'0""’Ci!A; 3AER PI’.ESiURE 

T SEC 1120 IXLET - 0,00 -T PP.I h20 OUTLET' 

,pRi U 20 FLorr. =;: ooo.oo ^sec k 2 o floj 

OUTPUT DATA - 1 - ■ • ' - >. - 

TOTAL U20 FLOl' - 600.00 :il23 FLO’J/START 

AIR HEIGHT FLOV = 1232.65 AIK VELOCITY 

TCOLD side UA' ‘ .■>-“3330;27“’C0LD 'F1L:: coeff~ 
KOT-FILIi COEFF 16.29- ;Q SE.VSIBLS ■ ■ 

:q ;tqtal. : , . i’i«;iii 60 .oo . :iieat BALAncE . . ; 


■i-3 — ■■ 

' ? ^ 



" f ™ ■ ' 


600*00 
* . j . V-. 

- ‘ ^ 600*00 
= 1^^32,65 

>^^^30;27^ 
— 16*29 
:«{iiioQ.oo . 


T KS“11 OECTT * 

T 350-*: OUTLET 
’CiiAvl3KR PIlLSiURL 
• T PRI h2'J OUTLET’ 
,SEC K20 FLO; 


:U20 FLO J/ start 

AIR vrLncnv 
^COLO'FIL.: COEFF^ 
:Q SSNSIitE 
TIEAT DALAnCE _ . 




51.50 

49-10 

63.60 
... 3.00 


. ; 300,03 
329,55 
■;' 7 i 63 .oa’ 
10374,10 
: : .1,014 


RSECS ,3 50-M HX ;FERFpRMAtfCE / HOT_.SIDE 3ALA.NCE 

■ ca^e' 5 r ‘’26 ■ --•r‘ir:|Tv:*:’,’':'iii4”'rr:T~:r]TT.:.:*“ 
:date I *7/8/75 ^ 1" ^:.i r.: r: r::T: 


-INPUT -DATA - — 

:t RS-11 ISLET 
T 350-H DEUFT - - 

:rs- 51 FLOir 
T SEC lUO INLET = 
;PRI 1120 FLO'..’ , = 

-OUTPUT DATA - ^ 

TOTAL K20 FLOV 
-AIR UEIGUT FLO:i * 
COLD SIDE UA 
EOT FILM COSFF ' '=• 
Q TOTAL - 


: *:79.10 

T RS-11 BEtiFT 

a 

‘ 47*00 

- 47*00 

T 350--^ OUTLET 

B 

45.03 


•CRATtSDR PRESSURE 

S3 

30*00 

45*00 

T PRI 1120 OUTLET 

a 

52*70 

; 375*00 

SEC tiiO FLO A 

t ■ ■ • ■ ■ • 

m 

375.00 

- 750.00 

H20 FLO'I/ START 

3 

187*50 

443*00 

AIR VFLOCITV 

c 

113.44 

3796*41 

COLD Fir: COEFF 

V 

260.06 

9.97 

Q SENSIBLE 

1C 

3933.33 

4275.00 

t ‘ ^ 

ilEAT SALANCE 

! 

. £t 

0. 936 


- - . . . - 






, - , 


T 350-:: i;;llx 

32.30 

AES OUTLET FLO'J ^ 

283.00 

T PEI i;20 I.NLET = 

■ ■ 45.03 

T StC 320 O'UTLET “ 

0.00 

TOTAL AI2 FIO,; 

290*50 

TOTAL liX UA 

1228.79 

HOT Sic:: ;iA ~ « 

1930.21 

^ LATENT ** 

950. 99 


* ^ 2 ■ 




T 350-:f INLET 

p? 

32.50 • 


ARJ OUTLET FLO;; 

5? 

92*50 


X PUI U20 IILEV 

- 

45.00 


T SEC H2C OlTLiiT 

“ 

43.70 * 


TOTAL Al^ FLO:f 

_ 

looJoo 


TOTAL CA 

St 

996.05 


HOT SIDE HA 

= 

1350.35 



* 

232.96 T 


-■ 


* 




— r 




aSECS 350-M HX FERF0R:'A.JCE / !JOT 3 IDE 3ALASCE 


CASS Ct 
DATE s 


27 

l/S/15 


ISPUT DATA - 
T RS-11 l:iLET 
T 350-M DEHPT 
RS-51 FLOW 
T.SEC 1120 IWLET, 
PRl h*20 FLOW 


75,00 
AS. 50 
7.50 
, A5.00 
575,00 


T RS-11 DE?;PT 
T 350-:i OUTLET 
CiiAMAER PEES SERE 
T PRI H25 OUTLET 
SEC 1120 FLOW 


:OUTPUT DATA - T 
•TOTAL H20 FLOW 
*AIR WEIGHT FLOW 

'cold side KA 

HOT Fit:* COEFF 

r ( j 7 lOTAL 


750.00 H20 FLOW/STAST - 

-r- 892,31 AIR VELOCITY 
-3796.41 XOLD FIL;-' COCFF- 
13.32 Q SEWSI3LE 
T7312.50‘~:aEAT BALANCE" 


45.50 
45.43 
30.30 
. 57. OU 
373.03 


-187.50 
226.83 
260.30 
7413.91 
1T017 . 


T 350- i liLET 

AR5 Outlet ?lo; = 
T PRI ;123 i.;lei = 
T SEC A20 OUTLET. = 


TOTAL AIR FLOW 
TOTAL as. UA 
HOT SIDE hA 
I LATENT 


33.03 

192.50 

45.00 

52.50 


200.00 

1223.32 

1804.73 

23.37 



tnSPUT DATA - 
P-T. RS-11 ISLET 
-«0-H DEWPX- 


-»l -. 75.00 It RS-11 OEWPT 
4r8 .-90— T-350-S -OUTLET 
:e* U.” :7,50,;CaA'l3ER PRESSURE. 

_ * r. nri 


pRS-51 FLOW 
l-T-SEC H20 INLET ••t — 
prpRi : H 2 o'FLow 

["output data - * — ! " ■ " - 


37,3.-;_0j} -SEC a2 0 FLOW 


-.48.90 
4iJ-.-90- 
- 30.00 

w ‘ 64*30 

« -: - 375 . 0 Q 


t 3 50-:l IJLZT 
-ASS OOTLST FiO'f 
T :i2o 
T SEC UiO OUTLET 


32.50 ' 
- 292 . - 50 — 
47*00 
59*00 


flTOXAL H20 PLO:/ 
hAIR-^HEIGHT FLOW 
rCOTD SIDE HA . 

Phot ■ f i l:i c oeff — « i * « 1 6 * 7 6 
tQ -TQTAT =»M 1 Q 62* 50 “ HEAT 


-I . 750.00 Ib23 FLOTvVSTAST: ' 137.50 

--^1339.21— AIR- VELOCITY 340.32- 

3796,41 _COLD FXL:t COEFF; ^ 260.00 

" Q SEaSX2LE‘ ^ --=> 10299. AS : 

balance - — * - 0.976 




= tMlQ 62 


: iz ‘ ; I : n : “i v : 

TOTAL AIR FLO'i 

-TOTAL -ax UA 

HOT SIDE HA_ 

Q LATEXIT - 




Udo.oo 

-1421*01- 
-2270.44 
: 0*00 








f J 




. . : : . . . p . j .. . 

r * .,-►►+ f , J ^ j I , 

-RSE;CS -iSO-rt Hi^PERFORHA 


-CASE f: ;29 
;:DATE^ I 7/S/75 

”kp in ~ 

■‘T Rs-ii i:;let ■ 
-T 35C-:I DEUPX 
-*Rs-5i rtou* 

XT SEC U20 lE’LET 
- PRI 1120 Fr.O^^ 

ToUTy Uf D AT A 
-aOTAL H20 FLOM 

Xair weight flow 

*-COLD SIDE HA ■ 
-'HOT FILM COEFF 

Xq total - . 

, r . X .! XX'X 


- tlji! 

i ,i,*. .j 

niSECS "350-M:HX‘P£ 

TCSEE~5T~^0 

-DATE -: |7/3/75 

::iHPux DATA - ; .‘.r" 
-T-RS-il iKLET 
: T 350-‘i DETPT 
-as-3i FLOW 
~T SEC I! 20 ISLET - 
.PSI H20 VLO\i . 

OUTPUT DATA - 
■ TOTAL 5(20 PLOW 
Alii WEI CUT PLOW 
•COLD SIDE HA 

- HOT FILH COEFF- • 

• Q TOTAL . . : 


■ 77,90 
52.00 

7.50 

44.60 

375.00 


/ ' HOT SIDE BALANCE - 

-I — - - : !:■ 

. i . ... \ . f . [ , 

1 T RS-11 CEmX'T ' * 

) 350-:: OUTLET 

[> CuA'^^Rr!*? • 'VV.Z 

^ T ?PI H20 OUTLET* 

3 SEC H20 FLOW 


H20 FLOW/STARX 
AIR VELOCITY 
COLD FlLt COEFF 
J SE.VSISLE 
HEAT SALAL'CE , 


52.00 

4^.65 

30*00 

53.30 

375.00 


^ 187-50 
! 116.27 
200.00 
:4134. 10 
I 0.978 


T 350-:i i:iLET 
ARS OUTLET FLOW 
T PRI H20 TNaST 
T SEC H20 OUTLET 


TOTAL AIR FLOW 
TOTAL :IX UA 
tIOT SIDE HA 
Q lATESXT 


/ :UOX SIDE BALANCE ’ 


I .... i . i 

I : 






— . — . — IJ. . ■ ..l . . -■ -j - I 

, 1 6 " ' T ' RS- 11 ' D EWPT = "“■*■ 52 . sW ^ i 

,30 T 350-n OUTLET = 45.60 ' 

,50 c;-:A:!3Ln pressure = . 30.0u i 

.00 T par S20 outlet =■ 57,25 -1 

00 SEC H20 FLOW .. = ! 375.00 


750.00 
863.25 
3796.41 
— 13.37 


a20*FL0W/.STAr.T 
AIR VELOCITY 
COLD FIL f COEFF 
.} SEESIriLE 


137.50 
221.10 
260.00 
0504. 37 


,8437.50 EEAT SAL.iSCE 


T 350-:i ISLET 
ARS outlet FLOW 
T PRI H20 ISLET 
•T SEC K20 OUTLET 


TOTAL AIR FLOW 
TOTAL HS UA 

HOT SIDE :;a 

.} LATEST 



auvaii^is 


r 


•RSECS 350-M HX 

performance / 

’ U OT 'side balance 


■ ■ 




CASE 5i 31 



- ■ ■ • 


* 



. 

DaVTE : 7/S/7S 





' * 

• 


■ ■ ■ ■ 

INPUT DATA - 








_ 

X.R3-11 INLET 


73-SO 

T RS-li DEWPT • 

CS 

. 52,03 

T 330*f I'lLIX 

= 

32,50 

7 350-M DEVPT 

s 

52*00 

T 353-N OUTLET 

Si 

49.30 

ARS OUXL-T FLOW 

tt 

2:)2.10 

RS-51 ?LOV 

» 

7,60 

CliAMSER PRESSU tE 

3! 

30.03 

T PRI *ii»7 i::let 

= 

46.00 

T SEC H20 INLET 

as 

46,.90 

T PRI H20 OUTLET 

*r 

o3 • v3 

T SEC dlO OUTLET 


59-30 : 

PRI H20 PLOJ/ 

kK 

375*Oi> 

SEC H20 FLON 


373-00 




OUTPUT DATA - 



. 



4 


- 

_XOXAL K20 ?L0!^ 

B 

_ 750*00 

H20 FL04/ START 

ar 

137.50 

TOTAL AIR FL0!7 

= 

299,60 

AIR WEXGUt FLOW 


1325*53 

AIR VELOCITY 

' 

^ ■ 339*37 

TOTAL liA UA. 

-X 

139S*57~ 

COLD SIDE HA 


379*^.41 

COLD FIL4 COEFF 

■t 

260.00 

HOT SIDE HA 

s 

2214,51 

LlEOX.FtL'J COEFF 

^ .= 

. itt.35 

•1 SEKST3LE. 

B' 

10561.32 

LATENT 

* 

1115,42 ^ 

-0^-TOXAL 

1 

^ ». 

11475,00 

HEAT BALANCE 

1*017 



-t — 






• jf U c :: r|r r . | 

PrSE CS^i 5 rSS-PERFORMASCE V fH^X- SI DE.rS 

rr *' T • ' * f " ■ 1 — r * ’ "*■ T *■ 1 ‘ - f *** * ' - -4 t t *■*■ ■ 

pdASE : • 132 * r * . ijtZririziiii ri x ^ : n :: 


£ T ( iASE : f :‘ j 32 ‘ r ' 
i - SATE •; ;7/3/73- -I 

pia ? of ■ b ATA' ~ • - -~7Ti 

i-T-ES-li INLET 

■-,T- 3 50-11 BENPIJ-HTjeII 
‘ f - as-si floh > - . - 
tT 'SEC H20 IKLET -» J 
pPRI-HZO FLOW- ■ - 


I h ^ r -*■ 


BOiSO -T RS-ll- BEWPT- * “ 

r_61.00' T 350-11 OUTLET 
— 7.60 CKAMBER PRESSURE 
' 45100 T PRI H20 OUTLET 
-375.00 .SEC H20 FLOW. 


•— 61.00 
;l_ 45.04. 
30.00 
: 56-05 

. 375.00 


OUTPUT DAIA'-' ■; 
hlOTAL E20 FLOS 
PAIR JIEIGHT FLO&_ 
PCOLD SIPE HA 
raOT FILM COSFF ‘ 
[Tq TOTAL I L-. 


-730.00 H20 FLOS/STAET— • 

-CSl.ES -AIR-TELOCITY ■ ■ 

3796,41 ■ COLDlFILM COEFF 
- -10.65 Q SESSI3LE 


.6731.25 :UEAT .BALANCE ... I 


-137.50 
-r *110. 72 

T* 260.00 
•4446.41 
i 1.009 


t 350-4 INLET 
-AES OUTLET FLO T 
T ?Rl H20 INLET 
T SEC H20 OUTLET 


-TOTAL AIR FLOW 
_TOTAL «X CA -- 
HOT SIDE HA . . 
<1 LATEST 


83.00 
90.03 

45.00 
51,90 


97-60 

•1045.33 

:i442.24' 

2349.50 


CcT 

I 

W 

\o 


:1 : : } : r: : i ' : ["^r^nTtT’TTTI I: r - . | : 

:?.SICS:350-M I1X PEKFORHATJCE / KQT.SIDE EALASCE 




•CASE 33 
*PATE : 7/3/75 

DAtA - ’ ' ' ■ 
T t;S-U Il.’LET 
^T '350-,r DESTT 
:rs-3i Tho:z 

1 SEC ii20 INLET 
:?nx »20 FLOV . . 


r . .77.20 
60-00 
„ 1 7-30 
4 3 . 2 o 
: : 375^00 





u 


-“OUtPVT DATA - 
.TOTAL H20 FLO*? 
-AiR t^ElCiiT FLOTT 
_qOLD. SILE liA 
^aOT FTLTi.CnEFr 
•Q TOTAL 

. , . ■ I » ■ r - ■ 


T RS-11 DEtCPT * 

T 350-^^ OUTLET 
C\}y^TZtl P?,K3SURE 
i FHI OUTLET' 

SEC H20 FLO.: 




^ .4.:.::: :r 


60.00 
47. J5 
. 1^30.00. 
61*40 
375.00 


T 350-:i INLET 
AR5 OUTLET FLO^ 
PRI :r20 INLET 
T SEC 02G OUTLET 

, L- , j... .. . . 


- I , - f- 

. 4 - 


' ' 750.00 
- S86.04 
3796.41 
'13.14' 
lOSOO.OO 


020 FLON/STA^IT ^ 
Ain VELOCITY 
COLD FIL**^ COEF^ 
Q 3EKSISLE 
HEAT DALA??CE ■ 


■ 137.50 
. 22G.O? 
: 2C0.0 t 
6T^.>5. 34 

1.012 


p4-^ -*■ i -i - |— . t * ... ,^i ... . • I 

i r r [ j j - Y ^ ^ . 


1 

E 


: v: 


TOTAL AIR 7L07 
TOTAL u<: UA 

HOT SIDE :IA 

LATEST 


dz. 

:i. 


80.30 
•192.00 
• A5.2'^ 

57.30 


■199,33 

1211.24 

1779.45 

3944.63“ 


..... , ;-....-ti . . : .... 

^asEcs 350-;-: kx PEaFORaA^CE / 

. t * * ' * J - • ‘ - r ■ - 

f I- ...I i., . ......a J .n.. 

,-CASE tf:- 34 
-•DATE : ■ 7/8/75 

^ .. ... j , . 

-IKPUT^DATA 

INLET 

-.T-aSO^:i DE7FT 
-RS-51 FLOU 
..:i:SFC U20 INLET 
PRI K2d FLQN 

f ■ • ' *. 

OUTPUT DATA - 
‘-TOTAL 1120 FL07 
lAlU L^EIGilT FLOU 
- COLD SIDE DA 
hot fil:i corrr 


— 


, I 


■HOT SIDE BALANCE 


■ j - • > • - • . f -. - *-*-* * - — • j 

. . K - - * - * - , ---. ...J ... . V . . , 


' r 


— f 


-£i- — ‘‘81T20"' 

62,00 
‘ 7.30 

:5i*oo 
- 375.00 


Q TOTAL 


= - 750,00 
= 1320.77 
= 3796.41 
« 16.26 
= 11S25.00 


-T^RS-T:r-DENPT 

T 350^:i OUTLET 
CNARiiER PRESSURE 
T PRI H20 OEILEi 
SEC i!20 FLON 


H20 FLOif/START 
AIR VELOCITY 
COLD FILI COEFF 

0 se:^siele 

KEAT UALANCE 


”*62,0Q- 

55,60 

30.00 

63,80 

375.00 


137.50 

335*53 

260,0 j 

S52&-92 

i,OuA 


I 

;i !- 1 

„ j 


I 


-T 350-:i INLCT 
ARE OUTLET FLOi; 
T PRI H20 INLET 
T SEC H23 OUTLET 


TOTAL AIR FLOSr 
TOTAL HE UV 
ftOT SIDU HA 
J LATENT 


82.50' 

2H2.GO 

51,00 

65.00^ 


29 ?, 30 
13U3.S3 
2202, 33 
3457.40 



a: 


SSECS 350-:: HX ?EXrOX:!&NCE / :iOT side 3A1AHCE 


CASE Si 
-DATE S 


35 

7/3/75 


INPUT DATA - 
T RS-11 ItJLET 
T 350-:i DE”PT 
RS-jl FLOW * 

T SEC i!20 i:4LET = 
_PiI E20 FLOW .. _ =. 

OUTPUT DATA - 
-TOTAL H20 FLOW = 
-AIR WeiGiIT FLOW - 
..‘COLD SIDE HA 
•HOT FILM COEFF - 
•QITOTA L • - 


31.20 T R3-11 DEWPT 

52.00 T J50-:t OUTLET 
7.50 ciia::ber pressure 

45.00 T PRl lUO OUTLET 
-250, Oi). SEC X20 FIOW .. 


500.00 
■1304.00 
2372.76 
■ 16.53 
_L103SO,00 


H20 FLOW/START 
AIR VELOCITY 
COLD FIL': COEFF 
Q sens IDLE 
HEAT BALANCE L_ 


52.03 T 333-1 INLET 
50.15 ARS OUTLET FLOW 
33.00 T ?I1 H20 INLET 
37.50 T SEC :i20 OUTLET 
230.00 


125.03 Total air flow 
335.22 TOTAL {U UA 
. 162.50 EOT SIDE HA 
10136.89 q LATENT 
l.OOJ 


82.70 

2SS.00 

44.03 

64.53 


295.53 

1152.01 

2235.03 

764.26 


-• — i ^-j^***' 7-" ■*■•'“? * •'■•fr?*;- r ^ 

“RSEC^ ist-n HX PERPQR?tAKCE 7 ' HOT SIDE 3ALASCS 

^case'5 * ■ :36 

rUIATE. 1— 


If 

; 1- 


136 

J7/S/75.:_.|. 


“IHPDT BATA - • 
._:t .RS-11 ixlet: ■ 
-^T 350-K OEHPT 

:i:R5r^51 "FLOW 7 

— T-SEC H20 -ISLET - 
— FRI ^H20 . FLOW 

-•-OUTpiiF^DAXA - - 

“TOTAL H20 FLOW 
-AIR WEIGHT FLOW 

—COLD* S IDE-UA 

llttOX FILM COEFF 

— q -TOTAL ; 


- . "r'ai .30 !T RS-11 DEWPT : : 

53.00 T 350-M OUTLET 
'■ J— 7750 — CHAtfSER-pRESSURE- 

- . — 147.00 iT PF.I H20 OUTLET 

—30 0.00 rSEC-H2Q FLOW 

=1 ’600;00 ‘820 FLOW/START- 
1302.56 AIR VELOCITY 

"=• 2^1-5 i i - COLD -P IL-M - COE? ?~ 

«iz:.-16,44. q SEHSI3LH ■ .. J. 

-411100,00 HEAT -BALANCE — 


M‘S3.00 T 350-:i ISLET 
. 50.70 ARS OUTLET FLOS 

30.00 “T-P SI U20 ISLET- 
1. 66.33 -7 SEC iI20 OUTLET 




■j7300,00--i 


1150.00 TOTAL AIR FLOW 
■ ; :335.22 TOT.VL HX UA - . 

1 98^0 0- — HOT— S 1 DE-HA- 

:i0097.43 Q XAT3:JT__:‘7LIZ 
-1 0.997 


• 33.30 
i23S.C0 
"^45;30- 
63.03 



•293.50 
125S.41 
-2227,24- 
: ‘^973.24 




isEci nx pKRFX)t;;(A:^cE 7 hiox TsiSe 3AlA:: 


. CAi> E if I 
-DATE. : 


37 ■ ' “ 
7/a/75 


* * ' ‘ ^ r t • I ' 

, » . 4. 

i y . f . ; . ; - 


I r ■ ^ • 


■T F.jt-n ISLET 

CT 

31. 20 

T RS^U D5WPT 

52.50 - 

T 350-1 ISLET 

» 

33,30 

,T 3 50-M i)E7?T 

S* 

’ ■ . 52.50 ' 

r 350-H OUTLET 

: 50.35 

A3S OOTLET FLOW 

z* 

233.03 

-us- 53 FLOV 

J& 

7.50 

•CUA'iSSti PFESSL-RE' « 

33. OJ 

T PRI H20 XVL^T 

= 

43.40 

i S£^\a ;I20 THLEX 

E3 

• “-^j9.00 

T'PRI H20 OUTLET - 

LJ^.40 

T SEC U20 OUTLET 

= 

*- 6U.40 

PRl iUC FLOW 

. =51 

- . 400.00 

SEC !120 FLOW 

, 400.30 

: ; . . ; r ■ [ 



-OUTPUT DATA - 



- L *■ 


, 1 . 1 



TOTAL 1120 FLOW 

*3 

800.00 

EI20 FLOV/ START 

2 90.00 

"total air ’ FLOW 

at 

2 V 5.50 

AIR UEISHT FLOW 

Cl 

1514.00 

AIE VELOCITY 

* 335.22 

TOTAL nX UA 

= 

1443.33 

COLD SIDE a A 


4117.65 

COLD F1L‘I COEFF = 

- 232,o:i 

HOI SIDE HA 

t; 

2234.04 

-^HOT FILM COEPF 

■ — 

16.49 

■q SEKSliLE ^ 

10171.25 

q LATENT 


715.45 

IQ TOTAL - - . 

> 

10960.00 

HEAT DALASCE ' . ' = 

. 0.D33 



. , 






• 

. . 1 

f - 

i . ^ 

. * « «r > » - , 

tr--... 

ij' 


' ' : T‘t 7"^ 

* ■ — 1 

^ J 




:;nsEC3: 3 50 t:i Ha pERro:aMA»cE / 

' t * ' ' * ’ i ‘ " ; — - 

I'CASE f; -JS i 

—DAZE Ti ;773775 . . ."rrTTTTtTr 


HOI SIDE 3ALAHCS - 


riiHEHT DATA - .: 

-T US-11 IIILET . .= ^—77.83 

-T '35Q-.t IlEOTX ■ = - -53.00 

:;es- 5 i flow ■ ' ~'= . ■ :; 3.20 

•■T SEC H30 InLET = 45. CO 

"7PRI K20 FLOW = — “375.00 




T RS-^Xi Jeupt 
T 350-M OUTLET 
CHArriiE?^ p-lESSURE 
T PSl il20 OUTLET 
-SEC ;i20 FLO-7' 


-^OUTPUT DATA - - 
::T0XAL H20 FLO:i 

- AiP :;eight flow 

COLD SIDE UA 
OlOT ¥lhtt COLFF 
“-tl 'TOTAL* 


^750.00 
a31.3X 
3796. 41 
10.47 
3437.50 


H20 FLOW/START 
AIR VELOCITY 
COLD FTL'^ COEFF 
q SE.'ISIiJLE 
HEAT SALAr?CE 


53^00 
45,75 
30.03 
57, S3 
-^375.00 


137.50 
212.35 
250.0 I 
6'713.72 
- X.O'jS 


It 33 j-:l 

A^.3 OUTLET FLO': 

T ?RI U20 IWLLT 
X SEC tl20 0U7LIX 


TOTAL AIR FLOW 
TOTAL LX LA 
HOT SIDE IIX 
q LATENT 


75-^0 

XaA.03 

7i5.j3 

54*60 


137,23 

14C5.47 

2231,03 

ia07,40 


HAIWILTQHSTAIIDAIID #% Qvjscno' 



N? 


R5ECS 350-H-HX P£H?ORHASCE / HOT SIDE 3ALAXCE 

: ■ : 


CASE if: 3D 

DATE : 7/8/7D 


INPUT DATA - 
T R3-^ll INLET 
-T 3i0-il DEU’PT 
RS«:il FLO:/ 

T SEC a20 INLET 
FRI H20 FLOV _ 

OUTPUT DATA - ’ 
TOTAL 1120 FLO./ 
:iAIE WEICIII FLo:; 
COLD SIDE llA 

•uoT fil:: coeff 

-Q TOTAL 


7li.60 

-53.00 

5.25 

45.00 

375.00 


750.00 

842.30 

3796.41 

13.43 

- 3512.50 


T RS-11 DEMPT ^ 53. Oj 

T 330-a OUTLET » : 45.55 

CtlAHBER P'lKSSURE * 30.0 3 

T. PRI H20 OUTLET =* . 57, 2 J 

SEC K20 ELO/ - 375.00 


H20 FLOM/ START » 187.53 

. AIR VELOCITY 214.63 

;COLD FILN COEFF 260.00 

q SENS13LE - 6721.57 

aiEAT BALANCE -> ! * 1.003 


T J50-^^ IJ-LCt 
AR3 OITLET FLJL’ 
T ?1I HiO I I LET 
T SEC h20 OUTLTT 


TOTAL AlH FLO:/ 
TOTAL iiX UA 
HOT SIDE UA 
q LATENT 


73.33 
IcA. JO- 
44. 00 
54.50 


183.25 

1223.64 

1313-96 

1875.69 



r^SECS :35d-ir:Hx;PEHF0E:fANCE 7 ;Hot. side balance: 


40 

17/3/75 c' 

I , ... 



■“CASE 5 
^DATB 

'= 

*ZT;35o-:r de:/px: ::z 

^S-51 FLOW = 

**T 'SEC H20 INLET = 

ZPRI ,H20 flow. ; . 

rnnrrPTmATA” 

-TOTAL H20 FLO:i - - ^ — ^750.00- 
—AIR yEIGRT FLOW '= ^ — 453.;57 
—COLD .SIDE HA . _"=_15.429.30 
-rHOT FILM COEFF — i-- -10. IS 

rO .‘TOTAL, i : _■» !_4312;50 , 

— T-r . } f-. rf 



-T 


— ■ rH : 

“t *-*•*-' 

-lirzl 

y 


- — 79.70 ‘ 

:"t::46;25 

^ -7.50- 

' OjOO 

. ri-.7SO.0O. 


*RS-11 DEWPT ^ — - 
:T 350-;i OUTLET =» 
.CHA:!3ER.PnESSURE»l= 
\1 PRI U20 OUTLET =- 
SEC R20 FL0:/. 

-.J- — 4. * ... L-. N 


46.25 
44.54 

,30.00- 

50.25 

:o.oo 


J 350-1 INLET 
'AR3 OUTLET FLO I 
,T -PRI U2Q INLET 
T SEC H20 OUTLET 




— - r- 1 V rr ' - r 


Il20 FLOW / START TTZS 

AIR VELOCITY ^ 

COLD. Fil l COEFH-lZ^ 
rO SENSIBLE 
HEAT BALANCE * 


nT37570d‘ 

116.27 

ni5a6.6s. 

^*4132.23 
;l,005 


-TOTAL AIR FLOW 

TOTAL UX UA 

:uoT. siDE .HA_:: 
q LATENT • - 




32.50 
95.00 
— 44.50 
0.00 


,-102.50’ 
- — •944.35 
-ZZI201.23. 
* i202.57 


j - • 
1 — 




U- 


B-43 





liSZCS 350-M KX PERFORffANCK 


—CASE 

^:date 


41 — 
7 / Q 775 


-INPUT DATA “ 

■, T RS^II INLET " 

T 3j0-.f DHt»1>T 
:i:s-3i PLGt: 

«T SEC H20 INLET^ 
PPvI H20 FLON 


T : 7 GT 90 ^ 

51 

10.00 
-: A 4.90 . 
375.00 


: 4-^, 

r *”*'- *'i 


HOT SIDE BALANCE 

i * - - - f V — ^ n • ^ ^ ■' 

r ' - ri - “ H 


*T"RS“1I DENPT 
T 3 50-’? mnhZT = 
CUA’!3TR PRESSURE = 
r_PEI E20 OUTLiX- » 
SEC 520 FLO? 


OUTPUT DATA - - - > 

^:T0TAL K20 FLON ‘=*’^-750.Q0 020 FLON/START 

^ Ain WHIGllT FLOW - 343*16 Ain VELOCITY 

COLD SIDE HA ” 3796.41 COLD FlL.r COCFF - 

-.HOT .FILU COEFF. _ .13.41 Q SENSIBLE . . 

Q TOTAL . c 3625.00 uEAT BALANCE 





,T7 177.^7 1 J 



.1 . ’ 

7"753.50 - 

T 35Q-?f INLET 

Kt 

' 73.30' 

45.55 

AKS 01'TI.ET FLO.' 

S 

130.00 

30.00 

T ?2I HZn I^fLSI 

=: 

44.0C 

^-.57.50,- 

375*00- 

-T SEC U23 OUILEI 

7i 

- 54*30^ 

1S7.50 

TOT.AL AIR FLOY 

S3 

190.00 

215*54 

TOTAL HX CA 

=; 

1227*52 

260*30 

HOT SIDE HA 

= 

1314.63 

.6 653 .33 
1*003 

} LATE'.iT 

“ 

2025. 72_ 





HAMILTON STANDARD 
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APPENDIX C 

PERFORMANCE PREDICTION TECHNIQUE 

C.l General condensing HX performance prediction analysis 

C.2 Modification to account for anomaly in coolant outlet 
temp with both coolant loops flowing 

C.3 Listing of computer program used to predict HX performance 
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HAMILTON STANDARD - ' 

^AjtmvxEo 

"mlm TECHNOtOeiES ™ 

APPBHDIX C.l 

Presented here is the procedmc followed to predict thermal performance 
for a condensing heat exchanger. Tnis technique divides the HX into 
a wet and dry portion a 3 described in Appendix B, and assunies as 
value for the aij’ stream outlet temperature to start the procedure. 

The performance prediction is based on known va3.ues for air and coolant 
inlet temperatures and flovf rates which in combination v;ith the film 
coefficient curves from Appendix B is used to predicted values for the 
air side and coolant side outlet temperatures. If this calculated 
value for air outlet teinpei-ature af rees v;ith t he initial value the 
prediction is finished. If not, then the procedure is repeated using 
the calculated outlet temperature as the new guess. This procedure 
continues until the guess and final prediction agree within some desired 

tolerance. 
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HAMILTON STANDARD 

“^Vggl^KS.. 





^rv 
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"/^^y 
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- • 





./x/fn¥..x/^ . <u^H xy^o yCx(// 

J/fT/i 4f;^>iAt3-. /KCaP^ /y'<^ /if-5 


/ 


. — ^ ~-^- 2 -Ll :■ 

"^^iV • - 


* ♦ fc 

-_^..„x^ysis«'7^ ^pA. y^a ' C%.i V-/ f) 


F/n<£^ ^s j^Ji j 4V / 

- < 1 ^ ^ C%y 

-■^p-^ ^v <5^ — : 


%.= 


(k'sA. 


-AT,.. 


— l[lr..f. 77 y„ 

-y - r- . 










HAMILTON STANDARD 
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TDCHNOU>GI£S II 


/ ^ ■ - ■ - ■ — - 

- , r I 

L . / ^y. j 



4 v /? 7* 


^ — (jS^- 1^^) — 


-/f/>i . CA/t^yCT^ . T^ St^yfr . 


o . — -.- 

7 ^ ^ /x "" 4l ^ — 

J //= TTJVr /i^4£J>5f 7}^ XiO^JifS^ ^?^y/QGA . 

: M^TTV x->/7%^A- T//^/u xf^^C^/s- 

.., .,.eXy^^ T///^ yl^Li^S f=i>pt . 

x^jc^Mx „ ^^cs^sr. .. T' ... — 
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Appendix C.g Wod.ifications 1.0 Heat Exchanger Performance Prediction 
to Account for Coolant Outlet Temp Anomaly 

Table C.2-1 presents data for test points //26 tlu’u 37 vhich shows how 
the split in heat rejection between loops varied with air flow rate, 
inlet inlet dewpoint, inlet coolout temperature and coolant flow rate. 


A regression analysis program was used with the Hang minicomputer 
to generate an empirical function that gives the percent of total 
heat transferred by the HX which was picked up by the secondary 
coolant loop. The primary loop picks up 1 minus this percentage. 

This percentage was expressed as a function of difference between 
air dewpoint in and secondary coolant temperature in and air flow 
rate (cfm). This percent vs flow curve is 

shovm in figure C.2~l. The same regression analysis program was 
then used to generate a curve of correction factor as a function of 
coolant flow rate, (figure C.2-2) The value of percent found from 
figure C.2-1 is multiplied by this -correction factor to obtain the 
actual percent of total heat that was picked up by the secondary loop 
and also the heat picked up by the primary loop. Knowing the inlet 
temperature and flow and the heat in each loop it Is then a simple 
step to find the outlet temper attire for each loop. 
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This procedure is incorporated into the heat exchanger perfromance 
prefliction program and is activated automatically if both coolout loops 
are flowing. 
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TP 

AIJl W 

DP IH 

V T. % 

SEC % 

T^I W 

SEC W 

TDP-TG 

PRI DT 

SEC DT 

26 

ino.n 

47.00 

67.54 

32.45 

375 

375 

2,00 

2.00 

2,00 

27 

200.0 

45.50 

61,53 

38,46 

375 

375 

0,50 

0.50 

0.50 

2S 

300,0 

40.90 

59.32 

40,67 

375 

375 

1.90 

1.90 

1.90 

29 

102,5 

32.00 

62.58 

37.41 

375 

375 

7.40 

7.40 

7,40 

50 

19/i,9 

52.50 

58.88 

41.11 

375 

375 

8,00 

8.50 

7.50 

31 

299,6 

52.00 

57.51 

42.48 

375 

375 

5.55 

6,00 

5,10 

32 

97,6 

61,00 

61.55 

3B. 44 

375 

375 

16.00 

16.00 

16,00 

33 

199,3 

60.00 

56.25 

43.75 

375 

375 

14.80 

14.80 

14.80 

3^ 

299.3 

62.00 

55,97 

44, 02 

375 

375 

11.00 

11.00 

11.00 

33 

295.5 

52.00 

55,06 

44.93 

250 

250 

7,50 

8.00 

7.00 

36 

295.5 

53.00 

56,75 

43.24 

300 

300 

6.60 

7.20 

6.00 

37 

295.5 

52.50 

58.39 

41.60 

400 

400 

3.80 

4.10 

3.50 


TABLE C.2-1 
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. APPENDIX C.3 

LISTING OF CONDENSING HEAT EXCHANGER PERFORMANCE 


PREDICTION COMPUTER PROGRAM 


HAMILTON STANDARD 

%F\'SSIS>iOCi£S 


L) REM - 350-M UX PERFORMANCE PREDICTION PROGRAM 
- GIVEN TIN FOR GAS AND COOLANT FIND TOUT AND Q - 
20 DIM XCiiO) 

30 DEFFNl(X)=3.107IS7tj2E--02+2,7l331473E-Q/|*X+A.5616A060E-05*Xl2 
-7,1704^ 935E-0eA::i3+4.01962030E-.09!*;Xl/H-l, 0A5 7506/(E-U*X15 
40 DEFFN2(X)=^106, 70: 90 366 71-.7 9 :562fiS30407*X+l, 4 213 7 844E-02*Xi2 
-4 .037029 90B'*0 5*X! 3+6 . 3 51 4 22 32E-08*X! 4-4 . 04 G 97 3 26E-1 1*X I 5 
50 DEFFM3CX)^7,304«94 31],85 2+3.1917274 3E-02ftX-I. 8 319 8194E-0 5*X!2 
+6. 78S77C62E-09AXI 3-1.19293620E-I2*X!4+7.52444916E-17AXiS 
60 FOU I»1 TO 50 :X(I)«0 .-NEXT I 

70 PRINT HEXC03) SPRINT "INPUT AIR SIDE CONDITIONS" 

80 INPUT "AIR FLOU RATE (TOTAL CFM) « " , X5 

90 INPUT "INTERNAL BYPASS {%) = ",B4: X(20)« (100-B4) /100*X5 s 
INPUT "AIR TEMP IN <F) = ’',X(3) ; 

INPUT "AIR DEW POINT IN (F)“ ",X(2) SPRINT 
100 PRINT "INPUT PRI COOLANT LOOP CONDITIONS" 

110 INPUT "PRI LOOP FLOW (LByHR) ",X(13): 

INPUT "PRI LOOP TEMP IN (F) = ",X(9) SPRINT 

120 PRINT "INPUT SEC COOLANT LOOP CONDITIONS" 

130 INPUT "SEC LOOP FLOW (LB/HR) « ",XCl4)s 

INPUT "SEC LOOP TEMP IN (F) « ", X(10) S PRINT 
140 PRINT HEXC03) SPRINT SPRINT SPRINT 5 

PRINT " COND HX PROGRAM IS RUNNING ****" 

h50 PRINT SPRINT " T CALC T GUESS " 

160 X(17)=X(13)+X(14) 

170 X(15)=CXC9)*X(13)+X(10) *X(14) ) / (X(13)+XC14) ) 

180 K9-CXC3)-X(h5))/2PX(5)=X(13)+K9 
190 IF X(13)=0 THEN 210 

200 IF TC14)-Q then 210 sXC30)=X(17) /4s GOTO 220 
210 X(30)=X(17) /2 
220 XCS)=30:X(1)=XC3) 

230 X(3X)=FN2CXC30) ) : 

IF X(13)“0 THEN 240: 

IF X(14)=0 THEN 240: X(19) = 27* • 5408<^X(31) : GOTO 250 
240 XC19)=27*'540S*X(31) /2 
250 XC21)“X(2) SXC26)=XC20)/.83X5 
260 X(29)=FN3 (X(26) ) ; X(27) = 3X3*» 5408<:XC29) 

270 IF X(I3)=0 THEN 280: IF X(X4)=0 THEN 280: 

X(27)=. 8*X(27) : GOTO 290 
280 X(27)=.7*X(27) 

290 H1 = X(X9) : H2=X(27) 

300 N=H1*H2/ (HX+H2) 

3X0 PI=FNXCXC5));P2=FN1CXC2X)): 

XC22)=X44*60*CXC8}**49X2)*XC20)/53.35/ (X(X)+459. 6) 


FIGURE C.3-X 350-M HX PERFORMANCE PREDICTION PROGRAM 




G-X3 


HAMILTON STANOARD 

^Hr TCCHHOIOGICS 


320 L=1 

330 IF T(2)zX(15)TUEN 340 : X(24) »0 : L»Q :GOTO 630 
340 XC23)“.24*X(22)*(XC3)~X(5) ) 

350 I3=.622*P1/(X(8)**4912-P1) ; 

A2==, 622*P2/(X(a)*.4912~p2) : X(24) = 106S*X(22) ^ (A2-A3) 
260 IF X(24)]0 THEt: 370 :X(ie)-X(23) :X(24 ) «0 ; GOTO 3fl0 
370 X(13)«X(23)+X(24) 

3Sn T(16)«(X(23)+X(24))/X(17)+X(15) 

390 K»X(27)/X(19) 

400 M1-XC17) /(•24*X(22)) 

410 IF X(2)[X(3) TEEN 4 20 : T1=X( 3) : T2=X ( 1 6) ; Ul*= OP GOTO 490 
420 Tl=(‘24*X(22)*};(3)+X(17)*(ll*X(21)+X(21)-X(16)) ) / 
(H*X(17)t‘2A*X(22)) 

430 T2=X(21)-H*(T1-X(21)) 

440 IF T2]X(15) THEN 450: GOTO 630 
450 E1«(X(3)-T1) /(X(3)~T2) 

460 IF El [1.0 THEN 47D:E1=,99 
470 GOSUB ’01(El,ia) tUl=.24*X(22)*K 
480 IF U1[U THEN 490:G0T0 630 
490 U2=U-N1 

500 Q7'=X(18)-X(17)*(X(16)-T2) 

510 Q8=Q7-X(24) 

520 M2=M1*Q8/Q7 

530 K1=1/(1+1?I1)+1/H*Q8/Q7/ (1+1/H) 

540 lf3*U2/Kl 

550 K2=U3*Q3/Q7/(‘24*X(22)> 

560 GOSUB '02(H2,K2) 

570 T0=T1>*E1*CT1-X(15)) 

580 Ql=X(18) :Q2s»X(24)-f“24*X(22)*(X(3)-T0) 

590 IF ABS(Q1-Q2) [*20 THEN 730PPRINT ,T0,X(5) 

600 IF Ql]Q2 THEN 620 

610 T(5)=X(5)-K9 ;K9=K9/2PX(5)=T(5)+K9;GOTO 310 
620 T(5)=X(5)+Ke:X9=K9/2:X(5)-X(5)-K9 ;G0T0 310 
630 “2=X(17)/(X(22)**24) 

640 K2=U/(X(22) A*24) 

650 GOSUB '02(M2,K2) 

660 IF L=1 THEN 670P X(5) =X(3) ~E1* (X(3) -X (IS) ) : GOTO 690 
670 T0=X(3)~E1*(X(3)-T(15)) 

680 IF T0]=X(2) THEN 700:GOTO 580 
690 IF X(5)]=X(2) THEN 70O:GOTO 580 
500 IF L=0 THEN 710tX(S)=T0 

710 X(18)=XC22)**24*(X(3)-X(5) ) :XC23)«X(18) :XC24)=0 
720 X(16)=XC1S)/X(17)+X(15) 

730 PRINT PPRINT : PRINT ; GOSUB 1040; 

INPUT "LOCATION SF OUTPUT Cl“CRT , 2=PRINTER) " , B 
740 SELECT PRINT 005:IF B=1 THEN 750:SELECT PRINT 211(64) 
750 PRINT HEX(03)," **** RESULTS ****'• 
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FIGUBE C. 3-1 (continued) GF FOOE QUAIid^ 
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760 

770 

780 

590 

800 

810 


820 

830 

840 

850 


JOSUB XA20:IF Xti3J=U THEN 58U 
PRINT ” PRI COOLANT FLOW (LB/HR) ";X(13) : 

PRINT " PRI TIN = ";X(9);'' PRI TOUT = X6 
IF X(14)=0 THEN 300 

PRINT *' SEC COOLANT FLOW (LB/IIR) ";X(14) P 
PRINT " SEC TIN = "jT(lO);'' SEC TOUT = 

PRINT 

PRINT ” AlP, FLOW RATE (TOTAL CFH) = " ;X(20) / (100-B4) -lOO { '* 
BYPASS CFIi = ";X(20)/ (100-B4)*B4 : 

TIN = ’^ = Tp);" HX TDP IN = ";T(2) 


v7 

iV / 


PRINT 
PRINT " HX 


" HX TIN 
TOUT = 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


,X(5) 

MIX TOUT = '';T; 


HX TDP IN 
TDP OUT = 
MIX TDP OUT *= 


HX 


”;D 


JX(5) 


"Q 

"Q 

"Q 


LATENT 

SENS 

TOTAL 


*= "pX(24) 
= ";X(23) 
■■ X(18) 


II 

“ - > 


860 PRINTUSING S70 , X(19 ) , X (2 7) , U ; 

870% HAC = HAH = UA = • //i? 


880 SELECT PRINT 005 

890 GOTO 1030 

900 DEFFN'01(E1,M1) 

910 IF El[ Mh THEN 920 ;E1«M1-, 01 
920 IF “1]1 THEN 930s IF Ml[l THEN 940PGOTO 950 
930 K«M1/CH1’-1)*LGG((1-E1/M1)/(1-E1)) :GOTO 960 
940 K«M1/(1-M1)*L0G((1-E1)/C1-E1/M1)) :G0T0 960 
950 K=E1/(1-E1) 

9 60 *'ETURN 

970 DEFFN*02(M2,K2) 

980 IF M2]l THEN 990:IF M2 [ 1 THEN 1000 ;GOTO 1010 
990 C1=EXPCK2(?CM2-1)/M2) ;E1=(1-C1)/(1/M2-C1) jGOTO 1020 
1000 C1=EXP(K2*(1-H2)/M2) ;E1=(1-C1)/(1-C1/H2) ;G0T0 1020 
1010 Eh=K2/(l+K2) 

1020 RETURN 

1030 STOP "FOR NEXT CASE KEY KONTINUE" : GOTO 60 

1040 EEFFKA(T) = l,28S'96 37 7E-02+2.0063 9183E-03i?T-2,02 79 3661E-05<?T! 
2 +l, 199 88 90SE-06AT!3-9. 173S3683E-0 9*T! 4+8,.061l4440E-ll*T! 5 

-1.49070697E-13(?T!6 

10 50 EEFFKB(P) = 101.69 9034 89 9 8-P33.44 3410892*LOGCP)+2.312198 303256 

* (LOG(P)) t 2+ • 2 68176 9 374251* (LOG (P)) ! 3-P* 1055 287 9 19424* (LOG(P) ) ! 
4 +3,63241174E-02*(LOG(P)) ! 5+4 . 87666468E«03*(LOG (P) ) 16 

1060 DEFFNC(Pl)=.622cPl/(h4. 69-Pl) 

1070 DEFFND(T)=1061.542592593+'434814814814S*T 
1080 H*.001:N=.001:K=1. 
h090 A1=X(20) 

1100 T1=*X(5) :D1 = X(5) 

1110 A2=X(20) / (100-R4)*B4 
1120 T2«X(3) :D2=X(2) 

1130 Wl«14.7*144*Al*60/53.3/(Tl+460) . . 

1140 W2=14.7*144*A2c60/53.3/(T2+460) 

1150 S1«FNA(D1) :S2=FNA(D2) 
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1160 V1=FNCCS1);V2=FNC(S2) 

1170 V1=V1*H1: V2=sv2*W2 
11 SO Ws=Wl+U2; V=V1+V2 
1190 H1=F'JD(T1) ;H2 = FMn(T2) 

1200 H=( (V?1-V1) ::45^T^+Vl‘<*^Hl)-^( (U2-V2) **2/,AT2-. V2*H2) 

1210 T= (Vn 24*T1 + ;72='=* 24*T2) / (Ul* - 24-rH2 * • 24) ! :;=T 
1220 ll0=O-J-») ’^^2 ^i^'T+V*F:IjHT) 

1230 PRINT H,H0,T 

1240 IF ABS(H-H0)[^° THEN 1330 

1250 ?=Z 

1260 Z-T 

h270 IF H0]H*I‘N THEN 1330 
1280 T=T+K 

1290 IF Y[]T THEN 1220 
1300 K=X/2 
1310 T=T-K 
1320 JOTO 1220 
1330 T=T-K 

1340 IF y[]T THEN 1220 

1350 K=K/2 

1360 T-T+K 

1370 GOTO 1220 

13S0 P=V*14.65/(V+W**622) 

1390 D=FNB(P) 

1400 REN 
1410 RETURN 

1420 EEFFN6(X) =15. 96 5221377 69+«18530213Q6397*X-4. 010644 65E-04*Xl 
2 +1.51909722E-07AX! 3 

1430 DEFFK7 (X)= 3. 3035 S81 389 36-2. 68317973E-02*X+6. 019844 27E-05*X< 
2 -5.12152777E-09*X!3 

1440 nEFFNS(X)=-, 161 7596 7 3S6 5-l-i.4985S664E-03*X-3.39129732E-06*X! 
2 -l-l. 73611111E-10*xl 3 

1450 DEFFN9(X)=A+B*X+C*XI2 

1460 DEFFN5(X)=1.1393136S132-5.0ai3186SE-04*X 

1470 IF X(13)=0 THEN 1480 ;IF X(14)=0 THEN 1430PGOTO 1490 

H480 ^^,X7=X(h6) :G0T0 1510 

j-n =FN6(X5) :n=+N7(X5) : C=FN8 (X5) : F2=FN9 (X(2) -T(hO) ) ! 

F2=F2*FN5(X(13)) . ' 

1500 X6=(100-F2)/100*XC13) /X(13)+X(9) ;X7=F2/100*X(18) /X(14)+X(10 

1510 PvETURN 


FIGURE G.3-1 (con.tinued) 
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